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FOREWORD 


The Jiffy III War Game model was used in the development of the SCORES 


Europe III scenario, which provides the combat developments community with a 


common base of assumptions, threat forces, weapons, organizations, terrain, 
and tactics for the 1986 timeframe. The 1977 version of the Jiffy was 
extensively modified and improved for the Europe III work. This report 
dqcuments the Jiffy III model as used for Europe III and supersedes CACDA 
aR Fy War Game Documentation, Technical Manuals TR 2-77, TR 3-77, and TR 
4-77, This report documents all the changes and improvements completed 
through April 1980. 


There are five volumes of Jiffy III War Game documentation. The first 
volume is the Executive Summary. Volume II is the Methodology, which 
describes the overall Jiffy III War Game methodology including detailed 
descriptions of the combat assessment equations. The computer calculates 
the attritions based on these equations. The unclassified portions of the 
data are given in Volume II. Volume III contains classified data as 
required for the Jiffy III model. Volume IV is the User's Manual, which 
contains a discussion of the manual aspects and the automated features of 
the gaming process and exemplifies the relationship between them through 
some sample runs. Volume V, the Programmer's Manual, consists of 
descriptions, and FORTRAN code of al! programs and routines associated with 
the Jiffy III game. 


This report was compiled principally by Dr. Channing L. Pao, Or. Robert 
J. Schwabauer, Mr: James H. Kennington and Mr. Willian D. Relph. The 


compilers wish to acknowledge the SCORES gaming staff of the Combined Arms 
Combat Development Activity who served as consultants. 
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ABSTRACT 


This report is one of a set of five volumes produced to document the 
combat assessment methodologies and automated features of the Combined Arms 
Combat Developments Activity (CACDA) Jiffy [If war gaming process. The 
Jiffy process was originally developed to support the TRADOC Scenario 
Oriented Recurringxvaluation System (SCORES) scenario development and force 
evaluation efforts. In 1978, the 1977 version of the Jiffy was extensively 
modified and improved to support Europe III scenario gaming. This report 
documents the Jiffy model used for that gaming. Volume II of this report 
contains the methodologies used in the automated routines of the Jiffy III 
Game. An unclassified data base, which was developed for test and 
demonstration purposes, is presented in Volume II. The classified data used 
in the Jiffy III Game during secure production runs, and their sources, are 
published separately as Volume III to keep the methodology volume 
unclassified. The other three volumes in the set are the Executive Summary 
ede qt: the User's Manual (Volume IV), and the Programmer's Manual 
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CACDA JIFFY ITI WAR GAME 
PROGRAMMERS MANUAL 


1. SCOPE. This manual was prepared to document the computer programs 
associated with the CACDA "Jiffy" war gaming process. The documentation of 
each subroutine and program includes a discussion of the functions 
performed by the routine. Descriptions, logic flow diagrams and a list of 
variables are provided in appendixes. The entire Jiffy listing of the 
FORTRAN code is given in appendix M. This program was subjected to 
extensive review and debugging in December 1979. No significant model 
Changes were required as a result of the sensitivity analysis and review. 
The program listings are from a printout dated April 1980. 


2. GENERAL. The interactive programs and data files that support the 
CACDA "Jiffy" war gaming process reside in permanent file storage on the 
Control Data Corporation (CDC) 6400/6500 multiprocessor computer located at 
Fort Leavenworth, Kansas. The programs are written in FORTRAN and are 
machine dependent due to extensive use of CDC Extended FORTRAN file 
handling features. There are basically two groups of programs that support 
the CACDA "Jiffy" war gaming process: 


o a set of four programs that generate and maintain files necessary 
for force structure : 


Oo create programs that initialize force structure generation files and 
history files | | | 


o the Jiffy Game combat assessment program. 


The four force structure generation programs are small programs that allow 
the gamers to build interactively a hierarchy of files based on the Army's 
concept of Tables of Organization and Equipment (TOE) with which they can 
generate task organized forces for combat assessments in the Jiffy Game. 
The Jiffy Game operates on these forces and determines the number of 
personnel casualties and weapon system tosses each force suffers in 
combat. In addition, the Jiffy Game generates a file containing a history 
of the forces and the losses they incurred for the combat it has 
processed. 


3. FORCE STRUCTURE GENERATION PROGRAMS. 


a. General. A hierarchy of four interactive programs has been 
developed to provide nontechnical military personne) with the capability to 
develop systematically a set of data files from which they can generate 
task organized forces for assessment evaluation in the Jiffy Game. The 
force structure generation is based on the US Army TOE standard 
requirements codes (SRCs). The SRCs define the types and quantities of 
weapon systems found in specific subunit organizations; e.g., an infantry 
Squad or a tank platoon. The first program of the force generation 
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hierarchy interactively develops a data base file of SRCs for each force. 
Since there is little variation in the composition of these subunit SRCs, 
the SRC data base, once completed, will be readily available for immediate 
application to any Jiffy Game-supported study. The second of the force 
generation programs uses the SRC data base to build interactively a file of 
the combat units through specification of a unique name and all SRCs that 
compose each unit. The file of units jis then task organized into higher 
echelon organizations called parent units. A file of the parent units is 
created interactively by the third program of the hierarchy. Finally, the 
information on the SRC, unit, and parent unit files is consolidated into a 
Aue of the forces to be considered for combat assessments in the Jiffy 
ame. 


b. File Organization. The type of files used in the force structure 
generation process and the Jiffy Game HISTORY file are CDC index 
sequential-random access files. These files are created and manipulated by 
file handling macros unique to the CDC operation systems. The files used 
for this application are random access files whose keys are contained in 
the first 20 characters (two words) of the record (the HISTORY file uses 30 
character keys). The keys are arranged in sequential order in the random 
access index table, which allows sequential, in addition to random, 
accessing of the records on the file. The record formats for the four 
force generation files and the HISTORY file are illustrated in figure 1. 
Before any operations may be performed on these files, they must be created 
and put into permanent file storage space. This initialization process is 
accomplished through the execution of a smal! file creation program, which 
simply specifies the parameters essential for proper file definition. The 
FORTRAN programs for the creation of al] five index sequential -random 
access files are contained in appendix A to this volume. 


c. Program Descriptions. 


(1) SRC program. The SRC program interactively builds the TOE SRC 
data base file. As noted above, this file is an indexed sequential-random 
access file. Each record of the SRC file contains an SRC identification 
word (1 to 10 alphanumeric characters) and up to 22 groups of weapon system 
item codes (Jiffy III Game Volume III, Appendix A) and the quantity of each 
type of weapon system assigned to the SRC. The format of the records of 
the SRC file is illustrated in figure l(a). In addition to creating the 
SRC data base file, the SRC program has the capabliity to review any SRC 
that exists in the data base, add new SRCs to the file, change the quantity 
and/or type of personnel or weapon systems in a given SRC, delete specified 
SRCs, and list all SRCs with the quantity and type of weapon systems and 
personnel found in them. A logic flow diagram of the SRC program, a 
listing of the program variables, and a list of the program code are 
provided in appendix B to this volume, 
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(2) UNIT program. Execution of the UNIT program is the second step 
in the force structure generation process. The UNIT program accesses the 
information stored on the SRC file and defines the combat units to be 
gamed. The program builds an indexed sequential-random access file whose 
records correspond to the combat units. The format of the UNIT file records 
is given in figure 1(b). Each record contains the unit name (1 to 10 
alphanumeric characters) and up to 22 valid SRCs (the SRCs must exist on the 
SRC file). The SRCs specified with a unit correspond to the subunit 
organizations that compose the unit. For example, the SRCs specified for a 
tank company could possibly be a tank platoon SRC (specified three times) 
and a tank company headquarters SRC. In addition to building the UNIT file, 
the UNIT program has the capability to review the SRCs in a unit already on 
file, add more SRCs to a unit already on file, delete specified units, 
delete particular SRCs from specific units, and list all units with their 
SRCs. A logic flow diagram of the UNIT program, a listing of the program 
variables and the program code are provided in appendix C to this volume. 


(3) PARENT program. The PARENT program is the third part of the 
force structure generation process. The PARENT program is the tool with 
which the military gamers can task organize interactively the combat units 
previously defined on the UNIT file into a file of higher echelon 
organizations, or parent units. The parent units are created by the program 
with the definition of a unique parent unit name (1 to 10 alphanumeric 
characters) and the specification of up to 18 valid units within its 
organization. The format for the records of the PARENT file is illustrated 
in figure l(c). In addition to creating the PARENT file, the program may be 
used to review the units of parent units already on file, add new parent 
organizations to the file, add new units to existing parent units, delete 
specified parent units, delete given units of specific parent units, and 
Tist all parent organizations with their subordinate units. A logic flow 
diagram of the PARENT program, the PARENT program variables, and program 
listing are provided in appendix D to this volume. 


(4) FORCE program. The FORCE program, the final step in the force 
structure process, interactively creates a file of the forces to be assessed 
in the combat routines of the Jiffy Game. The FORCE program consolidates 
the information defined on the files in the previous three steps of the 
process. The FORCE file consists of records for each unit of both forces. 
The format of the records of the FORCE file is presented in figure 1l(d). 

The first 10 words of the record define the unit and its combat 

environment. Although some of the parameters (sector, critical incident, 
combat intensity) are redefined in the Jiffy Game during the actual gaming, 
the first 10 words are initialized in the FORCE program. The remaining 80 
words (words 11 to 90 on the record) contain the quantity and indicate the 
type of weapon system in the unit. The position of the word denotes the 
type of weapon system (item code equals record word number minus 10). The 
value of the word is the quantity of that type of weapon system. Besides 
generating the FORCE file, the FORCE program provides the capabilities to 
add units of a specified new parent unit to the force file using information 
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stored in the other three files, delete all the units of a specific parent 
unit to the file, change the unit effectiveness, combat intensity level, and 
type (AD, AH, artillery, or maneuver), of any unit on the file, and list all 
parent units with their subordinate units, and their subordinate units and 
their corresponding quantities of weapon systems. It should be noted that 
when a unit is added to the file, the gamer is asked to input its unit 
effectiveness, which is the percentage of a unit's existing firepower score 
compared to its 100 percent firepower score. The number of each type of 
weapon system loaded into a unit equals the number of that weapon allocated 
to the unit at 100 percent strength multiplied times the unit's 
effectiveness. For example, if a unit had 16 tanks at 100 percent strength 
and it was specified to be a 50 percent unit effectiveness, only eight tanks 
would be loaded into the unit. A logic flow diagram of the FORCE program, a 
list of the program variables, and program code are provided in appendix E 
to this volume. 


4. JIFFY GAME. 


a. General. The Jiffy Game is a two-sided, interactive war game that 
operates on the FORCE file, the product of the force structure generation 
process, and determines potential rates of advance, personnel casualties and 
weapon system losses incurred by the units of the two forces on the FORCE 
file as a result of the five types of combat it plays: indirect fire, 
minefields, armor/ antiarmor, dismounted infantry, and attack helicopter/air 
defense. In addition to assessing combat, the Jiffy Game handles other 
administrative functions associated with the war game, such as combat loss 
apportionment, maintaining the FORCE file, updating the HISTORY file as 
required, and outputing the statistics of the battles. The Jiffy Game is 
written in FORTRAN and has utilized some of the features of CDC Extended 
FORTRAN. The program has been segmented to fit into 150k words of core on 
the CDC 6400 for interactive processing. The CPU processing time under the 
NOS/BE operating system varies with the size of the forces being gamed, but 
typical times vary between 10 and 60 CPU seconds per sector of combat games. 


b. Program reser tpt ons. A functional flow diagram of program SUPER 
representing the overa fy Game, is presented in figure 2. The 
following paragraphs describe each subroutine of the Jiffy Game and discuss 
the functions performed by the routines. 


(1) Program SUPER. Program SUPER is the main program of the Jiffy 
game. The primary function of the main program is to serve as a contro] 
point from which a gamer can branch to the other subroutines. Ouring 
execution the gamer resides at a control point known as the DECISION POINT. 
At this point, the gamer has a choice of the 12 decisions presented in table 
l. Each gamer decision causes SUPER to branch according to the 


A a a ee ee a ee ee en ee ee a et taieteel 


: z- -_ 
cus mere Sea eeenenianediehetnenedemcemetnienaditeeimenbinanattetnienen nina 
eae 
. 


*we 162! p nts sadn Bic 4 "weubeip mos jeuoryouns awed Aggie = °2 aunbey ‘3 


LNVANI NONNYVD ‘ 


‘ . a+ 
| 
(3414) 
LINI vivaTD | 
S3NTLNOW , 
TW ATIALUIA | : 


etyttotlefalzlolsiejej2it \ i 
ise r0ud 1800 a. ae SINILNOY 3OV4USINT 
TALLOVUGINT UaSN 


€) d0Ls Luis 


SAVUUY 
NdM 
AV1dS1G 


31d AYOLSTH 
01 Gav 


Se = re ne ee ee 


’ bhai ’ ess . 
+ — ee ee ee eee ee ey Sines ~ nt 


Control point gamer decisions. 


Description of Decision 
Load forces into a sector 
Calculate rate of advance 
Assess combat | 
Apportion combat losses to units 
Output battle statistics 
Display weapon arrays 
Add SRCs to TOE file 
Restart at a previously gamed CI 
Update history file - end game 
Reset Element Array from input file 
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Review previous run 


Reset terminal output file 
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flow diagram, as shown in appendix F, and return to the DECISION POINT. In 
addition, SUPER performs the following functions: 


o Calls INIT for data and array initialization. 
oO Displays the game instructions, if requested. 


o Inspects the type of weapon systems being played and determines the 
appropriate combat assessment routine to which to branch. 


o Accepts inputs of TACAIR losses, which are determined external to the 
Jiffy Game. 


o Records the forces remaining at the end of a critical incident on the 
HISTORY file. 


o Outputs the cumulative battle statistics at the end of critical 
incident. 


o Provides the gamers with the capability to reinitialize the forces at 
some previously gamed critical incident on the HISTORY file. 


The program logic flow, a list of program variables, and program codes are 
provided in appendix F. 


(2) Pre-Assessment subroutines. Four subroutines are grouped in this 
category because they perform pre-assessment functions. These subroutines 
initialize the array in data, and determine the overall and degraded fire 
power, artillery missions, and suppression factors. Other major functions 
are to determine and display for the sector being gamed, the rate of 
advance, the length of the battle and fire power ratio, etc. Four 
subroutines are EW, INIT, ROFA, and SUPRES. The description, program logic 
flow, and a list of program variables, of all pre-assessment subroutines are 
provided in appendix G. 


(3) Assessment subroutines. Seven subroutines are grouped in the 
assessment category because they are performed as combat assessment 
functions. These are AHAD, CANNON, CLGP, FASCAM, INFANT, MINE and TANK. 
The description, program logic flow, and a list of program variables are 
provided in appendix H. 


(4) Record-keeping subroutines. Fourteen subroutines are grouped in 
this category because they apportion casualties in the Jiffy combat 
assessment routines to the units on the FORCE file. These subroutines are: 
APPORT, BUILD, CKACI, CKSTOR, CLEAR, COMBINE, DISPLAY, FNDCI, FORE, LOSS, 
NEWHIS, RESET, RESTART and SHOWCI. The description, program logic flow, and 
list of oe variables of all record-keeping subroutines are provided in 
appendix I. 


(5) Interactive interface subroutines. Ten subroutines are grouped 
In this category because they perform interactive functions. These 
functions are to write on the ANSWER file and REVIEW files. It checks for 
the end of ANSWER file and informs the gamer. Ten subroutines are CKANS, 
GFT4, HOW, JOHN, REEDA, REEO4, REVIEW, SHORT, SHOWIT and TERM. The 
description, an overview flow diagram, and a list of program variables are 
provided in appendix J. 


(6) Functions subroutines. Two subroutines are grouped in this 
category because they perform the subfunction used to convert a five 
subscript variable to a single subscript variable, program variables. 
These are INDEXS and NUMB. The description, a logic flow, and list of 
program variables are provided in appendix K. 


(7) Postprocessor subroutines. Nineteen subroutines are grouped in 
this category because they produce specified game output reports as well 
as cumulative output reports and the killer victim matrix. These 
subroutines are ACCUM, BULLET, CIARM, COMMIT, GITNMS, HEADER, KILCAT, 
KILVIC, NEWPAG, OPTLER, POST, RATIOS, RECVRY, REPORT, SUMIOT, SUMUP, 
TRACE, TRANS and XOUT. The description, an overview logic flow, list of 
program variables and a sample output from the post processor are provided 
in appendix L. 


(8) Program listings. Appendix M contains the complete Jiffy III 
program listings. This program has been debugged and reviewed severa) 
times. A sample output run is shown in appendix L. The general program 
structure is the same as for the original 1977 version, although many 
improvements and modifications have been made as discussed in volume II. 
Users should note that most of the unclassified data are hardwired in the 
program code; so each time data changes are made, changes are required in 
the program. The Jiffy model continues to be modified and changed as new 
systems are developed and incorporated in the program. The complete 
program listings in appendix M are the latest program as of February 1980. 


REFERENCES 


1. USA CACDA, CACDA Jiffy War Game Programers Manual, Technica) Report TR 
3-77, March 1977. . 
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APPENDIX A 
INDEXED SEQUENTIAL FILE CREATION PROGRAMS 


This appendix contains the program code listings of the five programs used 
® to create the indexed sequential-random access files used in the CACDA 
"Jiffy" War Gaming process. The FORTRAN code listings are presented in 
figures A-1 through A-5 for the SRC, UNIT, PARENT, FORCE, and HISTORY _-———— 
files, respectively. 
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® Figure A-1. Create program for SRC file. 


PROGRAM CREATE( INPUT, OUTPUT) 

DIMENSION IFIT(35), IARRAY (46) 

CALL FILEIS(IFIT,3LLFN, SLTAPES, 3LWSA, [ARRAY , 3LMNR , 460, 2LRL, 460, 3LMRL, 
460, 2LKA, IARRAY(1),2LKP,0, 2LKL, 20, 3LDKI, 2LNO) 

CALL STOREF (IFIT,3LERL,100) 

CALL OPENM( IFIT, 3LNEW) 

CALL PUT(IFIT) 

CALL CLOSEM(IFIT) 

STOP 123 

END 


Figure A-2. Create program for UNIT file. 


PROGRAM CREATE (INPUT,QUTPUT) 
, DIMENSION IFIT(35), ARRAY (24) 
A CALL FILEIS(IFIT,3LLFN, SLTAPE9, 3LWSA, [ARRAY , 3LMNR, 240, 2LRL, 240, 3LMRL, 
| 240 , 2LKA, IARRAY(1),2LKP,0,2LKL, 20, 3LDKI, 2LNO) 
CALL STOREF(IFIT,3LERL, 100) 
CALL OPENM( IFIT, 3LNEW) 
CALL PUT(IFIT) 
CALL CLOSEM( IFIT) 
STOP 123 
END 


Ap] 


see ork ek A ee a ae aay, ' 
Heard. 


Figure A-3. Create program for PARENT ma 


PROGRAM CREATE( INPUT, OUTPUT) 
DIMENSION IFIT(35), IARRAY(20) 
CALL FILEIS(IFIT,3LLF RAPES, 3LWSA, IARRAY , 3LMNR, 200, 2LRL,200, 3LMRL, 

200, 2LKA, LARRY “OLKP,0,2LKL, 20, 3LDKI,2LNO) 

cA OREF (IFIT,3LERL,100) a J 
CALL OPENM( IFIT,3LNEW) 

CALL PUT(IFIT) 

CALL CLOSEM( IFIT) : 

STOP 123 

END bP 


ie arin Cate dln a Ag 


15a nate 
mI] od vo 


wae" * =" 


Figure A-4. Create program for FORCE file. 


PROGRAM CREATE( INPUT ,OUTPUT) 
DIMENSION IFIT(35), IARRAY(90) 
CALL FILEIS(IFIT,3LLFN, 5LTAPE9, 3LWSA, IARRAY ,3LMNR,900,2LRL,900,3LMRL, 
900 , 2LKA, IARRAY(1),2LKP,0,2LKL, 20,3LDKI,2LNO) 4 
CALL STOREF(IFIT,3LERL,100) 
CALL OPENM( IFIT,3LNEW) 
TARRAY (1) =IARRAY (2)=IARRAY (5)=" INITIAL" 
TARRAY (4) =0 
TARRAY (3) ="B" 
DO 10 1=6,90 
10 IARRAY(I)=0 
CALL PUT( IFIT, [ARRAY ,900, IARRAY(1)) 
CALL CLOSEM(IFIT) 
STOP 123 
END 
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Figure A-5. Create progran for HISTORY file. 


PROGRAM CREATE( INPUT ,OUTPUT) 

DIMENSION IFIT(35), IARRAY (90) 

CALL FILEIS(IFIT,3LLFN, 5LTAPES ,3LWSA, IARRAY ,3LMNR,900,2LRL,900,3LMRL, 
900 , 2LKA, IARRAY(1),2LKP,0,2LKL,30,3LDKI,2LNO) 
CALL STOREF(IFIT,3LERL,100) 

CALL OPENM( IFIT,3LNEW) 

TARRAY (1)="INI TIAL" 

TARRAY (2)=" INITIAL" 

TARRAY (3) =" INITIAL" 

DO 10 124,90 

TARRAY (1) =0 

CALL PUT(IFIT, IARRAY ,900, IARRAY(1)) 

CALL CLOSEM( IFIT) 

STOP 123 

END 
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SRC PROGRAM 


APPENDIX B 
SRC PROGRAM 


B-1. PROGRAM DESCRIPTION. The SRC program interactively builds the TOE 
SRC data base file, which contains an identification word and the quantity 
a” of each type of weapon system assigned to the SRC. The logic flow 

© diagram, a list of varfables, and a listing of FORTRAN codes of the SRC 
program are given in this appendix. 


B-2. SUBROUTINE VARIABLE. 


Variable Description 

ACHG Weapons to change (delete) 

AFRR Weapons not found to change (delete) 

AHOLD Keeps the force type 

AJ Quantity of weapon to be added 

AM Weapon to be added 

ARRAY Work storage array (SRC File) 

ARRAY (1) Force type (key) 

ARRAY (2) SRC name (key) 

ARRAY (3) First weapon on record 

ASRC SRC name specified 

ICK Action code 

ID0 Weapon listed 

IFND Number of weapons to be changed 
(deleted) 

IFIT FIT array (SRC File) 

K Number of weapons not found 

NN Weapon position on record 

NY Answer to question 
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Figure 3-1 SRC program logic flow 
diagram (continued). 
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Figure B-1 SRC program logic flow diagram (continued) . 
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Figure B-1 SRC program logic flow diagram (continued). 
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Figure B-1 SRC program logic flow diagram (continued). 
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Figure 8-1 SRC program logic flow diagram (concluded) . 
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APPENDIX C 
UNIT PROGRAM 
C-1. SUBROUTINE DESCRIPTION. The UNIT program builds an indexed 
sequential-random access file whose records correspond to the combat 
units, and accesses the information stored on the SRC file. A list of 
O variables and the logic flow diagram are given in this appendix. 


C-2. Program Variables. 


Variable Description 

AERR SRCs already existing in unit 

ARRAY Work storage area (SRC File) 

ARRAY (1) Force type (key) 

ARRAY (2) SRC name (key) 

ARRAY (3) First weapon on record 

BBERR SRCs that do not exist 

BCHG SRCs to be added (deleted) 

BERR SRCs to be added 

BFRC SRC not on file 

BHOLD Keeps the force type 

BRRAY Work storage area (Unit File) 

BRRAY (1) Force type (key) 

BRRAY (2) Unit name (key 

BRRAY (3) First SRC on record 

BUNIT Unit name specified 

I SRC position on record 

ICK Action Code 

IFIT FIT array (SRC File) 

K Number of SRCs not found 

M Number of SRCs to be added 

N Number of SRCs to be added 

NEND Number of SRCs to be changed 
(deleted) 

NFIT FIT array (Unit File) 

NN Number of SRCs that do not exist 

NY Answer to question 
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Figure C-1 UNIT program logic flow diagram 
(continued). 
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Figure c-1 UNIT program logic flow diagran (continued). 
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FigureC-1. UNIT program logic Flow diagram (continued). 
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Figure C-1UNIT program logic flow diagram 
(continued). 
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Figure C-1 UNIT program logic flow diagram 
(continued) . 
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Figure C-1 UNIT program logic flow diagram (concluded). 
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APPENDIX D 
PARENT PROGRAM 


SUBROUTINE DESCRIPTION, 


The PARENT program is used by the military gamers, who can task 
OQ rH baad interactively the combat units previously defined on the UNIT 
file into a file of higher echelon organizations, or parent units. The 


PROGRAM VARIABLES. 


Variable 


BBERR 
BERR 
BRRAY 
BRRAY (2) 
BRRAY (2 
BRRAY (3) 
CCHG 
CERR 
CFRC 
CHOLD 
CRRAY 
CRRAY (1) 
CRRAY (2) 
CRRAY (3) 


Description 


Units that do not exist 

Units that are to be added 

Work storage area (Unit File) 

Force type (Key) 

Unit name (key) 

First SRC on record 

Units to be added (deleted) 

Units already existing 

Parent specified 

Keeps the force type 

Work storage area (PARENT file) 

Force type (Key) 

Parent name (Key) 

First unit on record 

Unit position on record 

Action code 

Number of units not found 

Number of units to be changed (deleted) 

FIT array (Parent File) 

Number of units already existing 

Number of units to be added 

FIT array (Unit File) 

Number of units that do not exist 
- Answer to question 
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Figure D-1 PARENT program logic flow diagram 
(cont tnued). 
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Figure D-1 PARENT program logic flow diagram 
(continued). 
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Figure D-1] PARENT program logic flow diagram (continued) . 
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Figure 0-1 PARENT program logic flow diagram 
leontinued’. 
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Figure D-1 PARENT program logic flow diagram 
(concluded). 
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SUBROUTINE DESCRIPTION. 


APPENDIX E 
FORCE PROGRAM 


The FORCE program interactively creates a 


a file of the forces to be assessed in the combat routines of the Jiffy 

| game. The FORCE program consolidates the information defined on the SRC, 
The logic flow diagram, a list of variables and 
listing of FORTRAN code are given in this appendix. 


@® UNIT and PARENT files. 
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E~2. PROGRAM VARIABLES. 


te 


Description 


Keeps force type 

Work storage area (Parent. File) 
Used to check for correct’ force 
Keeps force type 

Work storage area (Force File) 
Parent unit (key) / 

Unit (key) a 

Force type (number ) |. f 

Sector -~ 

Critical Incident 

FPS“6 100% 

“Permanent combat intensity level 
Percent strength 

Combat intensity level 

EW type 

Quantity of item code 1 
Quantity of item code 65 
Force to be deleted 

Work storage area (SRC File) 
Force specified 

Work storage area (Unit File) 
Combat value specified 
Firepower score 

Weapon number (1-80) 

Weapon listed 

FIT Array (Parent File) 

FIT Array (Unit File) 

Fit Array (SRC File) 

FIT Array (Force File) 

Number of forces added 

Force type specified 
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APPENDIX F 
PROGRAM SUPER 
F-1, SUBROUTINE DESCRIPTION. The program SUPER is the main program of 
the Jiffy game that serves as a control point. A functional flow diagram 
showing the overall Jiffy game and all the subroutine interactions, a list 
of variables, and the logic flow diagram are given in the appendix. 


Fe2, PROGRAM VARIABLES. (common variables) 


Variable Description 

AA Here variable for system data and time 
calls. 

ACI Critical incident identifier 

AH History file record array 

ALOSS Weapon loss array 

APOS Attack tactical deployment factor 

ARRAY FORCE file record array 

ASCENE Critical incident mneumonic 

ASECT Sector number 

ATIME Length of critical incident (HR) 

BRRAY SRC file record array 

CFPR Maneuver firepower ratio 

CKILL Crew kills 

CLOS Crew loss constant. 

CREWS Number of crewmen killed per weapon system 

) Number of weapons subject to loss 
apport jonment 

DPOS Defender tactical deployment factor 

ELMT Array of weapon systems in sector 

FMASS Fraction of attacker massed 

FPR Total firepower ratio 

FPS Array of weapon system firepower scores 

FSFPR Fire support firepower ratio 

F SSF Fire support suppression factor 

I Subscript of fire weapon system. 

IA Index for attacker force 

ID Index for defender force 

ITENGAG Index for tactical situation 

IFIRST Rate of advance calculation flag 

IFIT File information table for SRC file 

[HIST File information table for HISTORY file 

Fe} 


Variable 


Description 


Maximum size of KV table 

Index for attacker mobility 

Input response variable. 

Index for tactical situation table 
Index for type of run 

Logic flag 

Index for type of terrain 

Array of thermal sight flags 

Index for visibility 

Index for weapon system 

HISTORY file I/0 buffer 

Index for force color 

Batch run constant 

New patch run constant 

Data file random access key 

File information table for FORCE file 
Minefield fla 

FORCE file I/0 buffer 

Night or day flag 

SRC file I/0 buffer 

Word packing variables 

Infantryman materiel loss rates 
Tactical deployment factor 
Suppression factor 

Round expenditure array 

Temporary round expenditure array. 
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Figure F-1. SUPER flow diagram (continued) 
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Figure F~1 SUPER flow diagram (continued) 
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APPENDIX G 
SECTION I. SUBROUTINE EW 


G-1. SUBROUTINE DESCRIPTION. This routine calculates the factors used to 
degrade AD, AH, artillery and maneuver firepower score, and artillery 


missions. 

G-2, PROGRAM VARIABLES. 

Variables Description 

ACF PS Tacair fire power score total 

ADFPS Air defense firepower score total 

AHF PS Attack helicopter firepower score total. 
ARD Dust level determiner 

ICOUNT Number of units per EW type 

ISMIKE Flag for Red smoke type 

NMV Number of maneuver units for dust effects. 
PCDGR : Array for percent EW degradation 

PCSMO Percent smoked array 

PCSSM Percent self smoked arrays. 
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Figure G-1 EW flow diagram (continued). 
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APPENDIX G 
SECTION If. SUBROUTINE INIT 


G-II-1. SUBROUTINE DESCRIPTION. This routine initializes the arrays in 
DATA/common. Note that the firepower score array (FPS) is initialized 
from the classified data array (CLDATA). In addition, INIT zeros the 
SHOTS array and initializes the word packing array variables (PACK). 
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G-II-2. PROGRAM VARIABLES. 
Variable Description 
ADIST Attacker's covered distance ‘ 
CFPR Ground combat firepower score 
CFPR Ground combat firepower ratio 
F Fraction of sector Red force massed 
FPRM Maneuver firepower ratio 
FSFPS Fire support firepower score 
FSFPR Fire support firepower ratio 
I Weapon system index 
TEL Force index 
IFPR Rate-of-advance firepower ratio index 
INX Input response variable 
ISTART Do-loop index 
ITABLE Engagement type index 
J Force index 
JVIS Rate-of-advance visibility index 
K | Weapon system index 
KIND Force color 
MF PS Maneuver firepower score 
RATE Rate-of-advance data array 
RMIN Minimum attacker firepower ratio 
ROA Rate-of-advance (KM/HR) 
se Intermediate ROA calculation variable 
STABLE Rate of advance index determiner 
TFPS Total firepower score 
Qo 
QO 
G-4 


| gq 
0 
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WORD PACKING 
VARIABLES 
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Figure G-2 INIT flow diagram. 
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APPENIX G 
SECTION III. SUBROUTINE ROFA 


G-III-1. SUBROUTINE DESCRIPTION. The ROFA routine is accessed from the 
main Jiffy Game program at DECISION POINT number 2 (see table 1). The 
primary function of this routine is to determine and display, for the 
sector being gamed, the rate of advance of the attacking force; the 
maneuver, fire support, and total firepower scores for each force; and the 
corresponding attacker; defender firepower ratios. To accomplish this, a 
number of parameters representing environmental and tactical military 
conditions that influence the nature of the conflict must be input 
interactively. Since these same factors also influence the other combat 
assessments, they are initialized here as variables in COMMON areas; thus, 
none of the combat assessment subroutine can be accessed until this 
routine has been executed. 


2. PROGRAM VARIABLES. 


Variable Description 

AC TACAIR firepower score 

ADIST Attacker's covered distance 

ADIST Attacker advance distance 

AHI History file parameter 

CFPR Maneuver firepower array 

F Fraction of sector Red force massed 

FPRM Maneuvr firepower ratio 

FSFPS Fire support firepower score 

FSFPR Fire support firepower ratio 

I Weapon system index 

TEL Force index 

IFPR Rate-of-advance firepower ratio index 

INX Input response variable 

INPUT Logic flag 

IS Logic flag 

ITABLE Engagement type index 

J Force index 

JVIS Rate-of-advance visibility index 

K Weapon system index 

KIND Force index 

MFPS Maneuver firepower score 

RATE Rate-of-advance data array 

RMIN Minimum attacker firepower ratio 

ROA : Rate-of-advance (KM/HR) 

SoA Intermediate ROA calculations variable 
A 

STABLE Rate of advance index determiner 

TFPS Total firepower score 


NOTE: All common variables are defined in appendix F. 
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Figure G- 3 ROFA flow diagram (continued). 
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Figure G- 3 ROFA flow diagram (continued). 
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Figure G-3 ROFA flow diagram (continued). 
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Figure G-3 ROFA flow diagram (continued). 
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Figure G-~3 ROFA flow diagram (continued). 
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Figure G-3 ROFA flow diagram (concluded). 
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APPENDIX G 
SECTION IV. SUBROUTINE SUPRES 


G-IV-1. SUBROUTINE DESCRIPTION. The routine, which determines the 

suppression factors for the attacking and defending forces, is composed of 

an array of the suppression factors used in the Jiffy Game and a few lines 

rf code that access the data and set the suppression factors for both 
orces, 


G-eIV-2, PROGRAM VARIABLES. 


Variable Description 

FACT Suppression factor data array 

I Array index 

STABLE Limites of firepower ratios which index 


suppression factor data 


NOTE: All common variables are defined in appendix F. 
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Fiaure G-4 SUPRES flow diagram. 


+ le am 


} 
¢ 
] 
‘ 
i 
* 


pity tats. 


A S = > rer are eS : | ~ ‘5 i 
ee me ee a ae YP fast 


¢ 
Pe) 
APPENDIX H 
ASSESSMENT SUBROUTINES 
. Section I AHAD 
Section II CANNON 
Section III CLGP 
Section IV FASCAM 
Section V INFANT 
Section VI MINE 
Section VII TANK 
Q 
QO 


| 
t 


: APPENDIX H 


SECTION I. SUBROUTINE AHAD 


H-I-]. SUBROUTINE DESCRIPTION. Program AHAD is the last of the combat 

assessment routines called from the program SUPER at DECISION POINT number 

3 (see Table 1). The purpose of this program is to determine and display 

losses resulting from combat involving at&ack helicopters and air defense 

systems. Both the helicopter and AD SSKP#@s are stored in the classifted 

random access file (CLDATA); several unclassified data arrays are 

initiated in the program itself. The program contains two sets of 

assessment logic, one for attack helicopter assessments against ground 

forces and another for air defense assessments against helicopters. The 

interactive definition of an attack helicopter mission initiates 

processing of both types of assessments, which are made for each pop-up of 

the helicopters in the attack cell and consequently may be cycled through 

several times for each mission. The number of helicopter missions to be 

assessed for each force is determined by the gamer; the Red helicopter/ 

Blue air defense assessments are completed prior to beginning the Blue 

helicopter/Red air defense assessments. When all assessments have been 

completed, the cumulative losses are displayed for both forces, the LOSS 
subroutine is called, and the subroutine exited. This appendix contains 7: 
the logic flow diagram, list of variables, and the FORTRAN source code _ 
listing for subroutine AHAD. The AHAD routine processes assessments for - 
combat in which attack helicopters are firing at ground maneuver units 1 J 
while being engaged by air defense weapons. The logic flow diagram and ’ 
the program variables are given in this appendix. 


H-I-2. PROGRAM VARIABLES. 


ee eee 


Variable Description 
ABORT Missile abort factor 
AC Number of helicopters entered in cel] 
ACAV Helicopter operational availabilities 
ACCREW Helicopter crewmen ‘osses 
ACKILL Mission helicopter losses 
ACLOST Popup helicopter losses 
ACQ Air Defense acquisition probabilities 
ADB Air Defense rounds per burst 
ADD Fire distribution variable i 
ADPK Air Defense kill probability by range F 
ADUST Dust effects factor 
AHI History file parameter 
AHKILL Cumulative probability of survival against 
helicopters 

AIRLOSS Helicopter losses array 
AKILL rad sel survival probability against al] 

, Le 
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Variable 


GNOLOS 
H 


HELT 
HVICTIM 


Description 


Percent of helicopters unsmoked by Red 

Helicopter ordnance success rates of fire 

Air Defense acquisition probability 

Helicopter attack cell configuration array 

Ground weapons crewmen losses 

Number of scouts in cel] 

Defender in high density flag 

Division in number of pop-ups calculation 

Dust array 

Elements remaining 

phe number of helicopter exposures to AD 
re 

Friendly barrage factor 

Fire distribution factor 

Fraction maneuver forces engaged 

Percent and firers not affected by smoke 

Loss apportionment factor 

Mission ground force losses 

Mounted/dismounted infantry materiel loss 

factor 

Total ground force losses 

Hours of flying time for helicopters 

Number of helicopters remaining in a force 

Pass dependent helicopter victims 

Ground weapon system index 

Mission abort flag 

Status record ammo indes 

Blue round indes 

AH missile fire launch index 

Electronic countermeasure index 

Infantry weapon loss calculation index 

Display header flag 

Ammo expenditures calculation flag 

Ground weapon system index 

AO firer index 

History file parameter 

Input response variable 

AD position indes 

Put call switch 

Range index 

Red round index 

Range index 

Pass flag 

Terrain index 

Smoke flag 

Ground weapon target type index 

Ordnance type index : 
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Variable 


PHKILL 


PK 
PKILL 


PLOS 
PNSMK 
POPORD 
PROB 
PROB1 
PROB2 


ae ee 
. 


Description 


Infantry weapon index 

Terrain masking index 

Ground force index 

Positioning units index for contact 
Visibility index 

Helicopter type index 

Force color 

Helicopter type index 

AD weapon conrol] status factor index 
Maximum number of popups 

Terrain masking index array 

Cell popup index 

History file record field index 

History file record field index 

Cell popup counter index 

Number of helicopter popups per sortie 
Number of cell popups 

Round type index 

History file record field index 

History file parameter calculation variable 
History file parameter calculation variable 
Weapon system operational availability 
Helicopter ordnance loads 

Helicopter ordnance expenditure 

Percent AD committed array 

Percent of force not smoked 

Attack helicopter acquisition probabilities 
Percent AH not smoked 

Percent AD firers for AKM model 

Weapon system survival probability against 
helicooter 

Helicopter probability of kill array 
Helicopter survival probability against AD 
weapon 

Terrain masking array 

Percent not smoked 

Helicopter per popup ordnance expenditure 
Helicopter averaged PK against target 
Helicopter PK against target in defilade 
Helicopter PK against target in open 

Pass determined smoke variable 

Rounds expenditure variable 

Rounds expenditure variable 

Total helicopter rounds fired 

AD weapons suppression factor 

Helicopter sorties available 

Suppression factor coefficient 
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Variable 


SH 
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VICTIM 


VKILL 
WEAPC 
WEIGHT 
XAC 


NOTE: 


—*. oF mp9? 5 a, 
2s 7 ale SAREE indi ae 


Description 


Helicopter suppression factor 

Loss apportionment denominator for 

helicopter > 
AD rounds expenditure variable 

Loss apportionment denominator for AD 

weapons 

AD single engagement kill probabilities 

Threat barrage factor 4 
Terrain masking factors 

Current total number of helicopters in cell 

Initial total number of helicopters in cell 

Total ground weapon system targets for 

helicopters 

Ground weapon systems killed by helicopters 

AD weapon contro! status factors 

AD target weighting factor 

Helicopters remaining in cell 


All common variables are defined in appendix F. 
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Figure H-1 AHAD flow diagram (continued). 
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Figure H-1 AHAD flow diagram (continued). 
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Figure H-1 AHAD flow diagram (continued) . 
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Figure H-1 AHAD flow diagram (concluded). 
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APPENDIX H 
SECTION II. SUBROUTINE CANNON 


H-II-1. SUBROUTINE DESCRIPTION. CANNON fs the first combat assessment 
routine called by the supervisory program (SUPER) from DECISION POINT 

number 3 {see table 1). It requires data arrays from the classified random 
access file (CLDATA) in addition to the data initiated within: the program 
itself. CANNON performs nearly all the assessments associated with mortar 
and field artillery fire and also displays the losses from all indirect 
fire missions. The routine requires a number of gamer inputs to specify 

the types of indirect fire missions being assessed and to set parameters 

be that are used in the actual assessment computations. The program cycles 

through several nested DO loops in making the loss calculations in order to 
assess all possible target/firer combinations; this is done for each force 
firing at the opposing force and for each phase of indirect fire combat 
being assessed. The only indirect fire assessment not included in the 
CANNON routine is for cannon-launched guided projectiles (CLGP). CLGP 
missions are available only to the Blue force and are assessed by calling 
the subroutine CLGP. When all assessments have been completed, the 
cumulative losses are displayed, the LOSS subroutine is called, and contro! 
is returned to the supervisory program. 


H-I1-2. PROGRAM VARIABLES. 


_ ee ie ra a 
“ b 
ee ee J 


Variable Description 
{ ACO Acquisition factor 
‘ ADSF Air defense suppression mission flag 
¥: AHI States record indicator 
S AKILL Target survival probability against al! 
: firers 
j AT Number of homogeneous area targets 
BMT Battery missions per tube 
; BMTH HE missions 
i BMTI ICM mission 
C Combat level variable 
CBTLEV IDF combat level required 
CLEV IDF combat level 
CLOST Crewmen lost 
CM Total CLGP missions fired 
CM50 CLGP missions fired by weapon 50 
CM53 CLGP missions fired by weapon 53 
DE Fraction of IDP systems deployed 
F Fraction of missions which are targeted 
FAC Fire allocation constant 
FOF Fire distribution factor 
FOT Fractional damage table 
FOTATH HE fractional damage divided by number of 
targets 
H-16 


Variable Description 


FOTATI ICM fractional damage divided by number of 
targets 
c FLAG Flag for type of IDF mission 
FPF Length of final protective fires (minutes) 
HOURS Length of IDF mission (hours) 
HR Length of IDF support (hours) - 
HRARTY Length of artillery support (hours) 
re I Firer weapon integer index 
IC ICM round type variables 
ICAN Debug flag 
ICAT IDF weapon category index 
ICB Counterbattery mission flag 
ICM ICM round type arry 
Ics Close support mission flag 
IFLAG Mission flag index 
IT Firer weapon mapping index 
INC History file field index 
INX Input response variable 
IOP Suppression factor index 
IPOINT Output header flag 
IS AMMO array index 
I SHOT Ammunition expenditure index 
150 Weapon 50 CLGP fire flag 
153 Weapon 52 CLGP fire flag 
J Firer's force integer index 
K Victim weapon integer index 
KIND Force color 
KK Target mapping index 
L Victim's weapon integer index 
MAP IDF target mapping array 
MW Military worth array 
MWROFB Military worth array or blue systems 
MWTH Military worth 
MWTHX Military worth variable 
N Do loop variable 
NWD History file field index 
9 OA Operational availability 
OPERA Operational availability 
P Gamer percent response variable 
PCM Percent not degrated by EW 
O PCM1 Percent not degrated by smoke 
PERSF Personnel fire mission flag 
PIC Percent ICMs variable 
PICM Percent ICM array 
PKILL Target survival probability against firer 
PLOSS Total victims killed 
PNTAR ° Percent not targeted 
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Variable 


— Description 


Percent of knowledge 


Lengths of prep/counter-prep fires (minutes) 


Rate of fire 

Rounds per mission 

Suppression factor 3 

Loss apportionment factor denominator 
Weapon suppression constants 

Tubes per battery 

Blue firer documentation variable 
Red firer documentation variable 
Blue target documentation variable 
Red target documentation variable 
Elements per target 

Target losses to IDF systems 

Ammo calculation variable 

Ammo calculation variable 

Ammo calculation variable 

SP 122's in DF role 


NOTE: All common modules are defined in appendix F. 
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Figure H-2 CANNON flow diagram (continued). 
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APPENDIX H 
SECTION III. SUBROUTINE CLGP 


H-III-1. SUBROUTINE DESCRIPTION. Subroutine CLGP is accessed from the 
indirect fire program to determine losses of Red weapons to Blue CLGP 

fire. The gamer inputs required are the number of CLGP missions to be 
fired, whether the aerial designator is in use and the cloud height. The 
losses are returned to the main program and displayed from there as part of 
the indirect fire results. 


H-IITI-2. PROGRAM VARIABLES. 

Variable Description 
ADUST Dust effect factor 
AKILL Target losses to CLGP fire 
BMT Battery missions per tube 
CM Total CLGP missions fired 
CMS Missions fired counter 
DUST Dust array 
FARD Friendly barrage factor 
FD Fractional damage 
FDF Fire distribution factor 
G Percent not aborted 
I Firer weapon index 
ICH Cloud height 
TEL Do loop variable 
INX Aerial designation flag 
IPSN Positioning units index for contact 
IS Aerial designator flag 
J Firer force index 
K Target weapon index 
KK Infantry weapon index 
L Target for index 
MAX Maximum CLGP mission to fire 
OA Operational availability 
OAV Operational availability times percent not 

smoked 

OPERA Operational availability 
PCNSM Percent not smoked 
PEXP Terrain adjustment factor 
PRCN GLLD suppression or RPV survivability factor 
PLOSS Total victims killed 
PREC CLGP SSKPs and GLLD suppression factor 
R Number of CLGP rounds fired 
S Response control switch 
T Number of targets available to CLGP firer 
TARD Threat barrage factor 


NOTE: All common variables are defined in appendix F. 
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Figure H-3 CLGP flow diagram. (Continued next page) 
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| Figure H-3  CLGP flow diagram (concluded). 
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APPENDIX H 
SECTION IV. SUBROUTINE FASCAM 


H-IV-1. SUBROUTINE DESCRIPTION. This subroutine contains the logic used 
to assess losses to minefields composed of scatterable mines (FASCAM). The 
subroutine is called from the mine subroutine whenever the gamer specifies 
that a FASCAM minefield assessment is being processed. Although the 
assessment computation logic is essentially the same as for conventional 
minefields, the FASCAM minefields require a different set of inputs and 
casualty rate data. 


H-IV-2. PROGRAM VARIABLES. 


Variable Description 
AKILL Attacker weapon system kills 
CLOST Crewmen lost 
DEPTH Minefield depth array 
FATCAS Percent tank casualties by FASCAM mines 
FPCAS Percent personnel casualties by FASCAM mines 
FROBY Minefield frontage bypassed by attacker 
FRONT Minefield frontage 
IT Type of FASCAM delivery system 
INX Input response variable 

Force index 

K Target weapon index 
KK Target weapon index 
p Percent of force entering minefield 
PERCOV Percent of units front covered by mines 
PLOSS Total victims killed 
PMFNBY Percent of MP not bypassed by attacker 
TRZONE Terrain trafficable by armor 


NOTE: All common variables are defined in appendix F. 
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APPENDIX H 
SECTION V. SUBROUTINE INFANT 


H-V-I. SUBROUTINE DESCRIPTION. INFANT is the fourth of the combat 
assessment routines called in the main Jiffy Game program from decision 
point 3 (see table 1). It is called whenever both forces contain infantry 
personnel in the weapon system (ELMT) array. The function of this 
subroutine is to compute and display the losses incurred as a result of 
dismounted infantry combat for the sector being gamed. The subroutine 
requires a number of interactive gamer inputs, which set the parameters 
necessary to carry out a one-time assessment of ambush and/or conventional 
dismounted infantry combat casualties suffered by each force. When 
assessments are finished, the results are displayed, the LOSS routine is 
called, and contro! is returned to the main program. 


~ gpl ae 


H-V-2. PROGRAM VARIABLES. 


Variable Description 
A Ambush personnel casualty rate 
AHT History file parameter 
AIL Infantry attacker losses 
AT Personnel allocated to infantry attack 
ATRIT Personnel casualties for ambushed unit 
DF Defender's personnel! casualty rate 
DIL Infantry defender losses 
DT Personne! allocated to infantry defense 
DOTRIT Personnel casualties for ambushing unit 
F Fraction of maneuver forces committed 
FAC Casualty rate resolution factor 
GF PR Ground combat firepower ratio 
GF PS Ground combat firepower scores 
HR Hours of combat for assessment 
HRC Hours of conventional combat 
I Target weapon index 
IAA Attacker index in ambush 
TEL Defender index 
Q IFLAG Logic flag 
INDEX Target weapon flag 
INX Hours of infantry attack 
J Force index 
°@, KIND Force color 
L Target force index 
STABLE Casualty rate index determiner array 
TABLE Ground combat personnel casualty rate 
TABLE 3 Ambush personnel casualties 


NOTE: All common variables are defined in appendix F. 
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Figure H-5 INFANT flow diagram. 
(Continued next page) 


H-36 


—- - 
A TS TTS ae were ® 
« 


eee i es een ere a me 
o,: 


wo. 
ear 


-NTER LENGTH 


2 4 
SET HOURS OF 
NO AMBUSH ATTACK | 
SET HR = 0 
| YES 
SET HOURS OF 


Figure H-5 INFANT 


He37 


cat ATTACK 
SET HR2HR-1 


COMPUTE ATT 


SEFENDER Hi WE 
ED BP EEUNee 


i 
IGHT 


flow diagram (continued). 


ee 


Bist, — 
yey. 7 


7 
; | 

| 
| 


Figure q-5 


INFANT 


EXTRACT APPRO- 
PRIATE CASUALTY 
RATES FOR 


R_ AMBU- 
SHER ANO DEFEN- 
DER FROM DATA 


YES 


SUBTRACT AMBU- 
SH COMBAT 
LOSSES FROM 
FORCES COMMIT- 
TED TQ BA 


BRIRTE cASUALT 


RATES FOR EACH 
ORCE FROM 
DATA ARRAY 


flow diagram (continued) . 


H- 38 


NO 


ant ie. 


ee, et Sr el Ne me 


ee ae 


af ae bce Soe ele cee emma ce. 


ASSESS CONVEN- 


| © IONAL COMBAT 
INFANTRY PERSON 
NEL LOSSES FOR 
EACH FORCE 
) 


DETERMINE INF 
ATERIEL LOSSES 
ASSOCIATED WITH 
OTAL_ASSESSED 
INFANTRY PERS 

a 


j | 8) 


DETERMINE GROUND 
ANTITANK WEAPON 
LOSSES ASSOCIATEL 


WITH TOTAL ASSES 
SED INFANTRY 


PERSONNEL LOSSES 


RETURN 


Figure H-5. INFANT flow diagram (concluded). 
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' APPENDIX H 
: SECTION VI. SUBROUTINE MINE 


| H-VI-1. SUBROUTINE DESCRIPTION. The primary function of the MINE program 

a is to assess and display the losses suffered by the attacking force to t 
2 minefields emplaced manually or mechanically (i.e., conventional 

minefields). MINE also contains the control point at which the type of 

minefield employed is specified interactively by the gamer. At the end of 

any minefield assessment, the program returns to this control point; thus, Q 
several assessments can be processed employing the same or different types 

of minefields before control is returned to the supervisory program. Only 

a minimal amount of data is needed to assess minefield losses; most of the 

necessary parameters are set interactively by gamer inputs. The processing 

of assessments is terminated from the contro! point. After which the LOSS 

subroutine is called and control is returned to the main program. 


H-VI-2. PROGRAM VARIABLES. 


Variable Description 
AFRONT Minefield frontage input variable 
AHI History file parameter 
| AKILL Attacker weapon system kills 
1 ATDEN Antitank minefield (MF) density per square 
meter 
ATFAC Percent tank losses by antitank mines 
BMPL Mine planter platoons 
f CLOST Crewmen losses for productive time lost due 
to enemy 
FROBY Minefield frontage bypassed by attacker 
FRONT Potential minefield frontage 
HOURS Hours required to lay MF strip 
HRMAN Man-hours available for emplacement of mines 
HRREQ Man-hours required to manually emplace mines 
IND Type of mine employment index 
INX Input response variable 
I0K Logic flag 
J Antitank mine density index + | 
: K Target weapon system index 
KIND Force Color 
KK Infantry weapon system index 
NUMEN Number men to emplace mines Oo 
Pp Percent of force entering minefield 
| PERCAS Percent AP mines personnel casualties 
| PERCOV Percent of unit's front covered by mines 
| PHR Man hours available 
! PLOSS Total victims killed 
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Variable 


Description 


Percent of MF not bypassed by attacker 
Mine planter hours available 

Minefield strip width 

Terrain trafficable by armor 

Work degradation factor 

Mine density input variable 


NOTE: All common variables are defined in appendix F. 
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Figure H-6 MINE flow diagram. 
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Figure ¥-6 MINE flow diagram (continued). 
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Figure H-6 MINE flow diagram (continued). 
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Figure H-6 MINE flow diagram (concluded). 
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APPENDIX H 
SECTION VII. SUBROUTINE TANK 


H-VII-1. SUBROUTINE DESCRIPTION. TANK is the third of the combat 
assessment routines called in the main Jiffy Game program from DECISION 
POINT number 3 (see table 1). In this routine, the losses due to combat 
involving tanks, other armored combat vehicles, and antitank weapons are 
calculated and displayed. The TANK routine cycles through a series of 
nested DO loops in assessing losses for each possible combination of 
targets and firers for both forces. The gamer inputs a range band index, 
which initiates the assessment logic cycle. At the end of each assessment 
cycle, the gamer either inputs another range band index to continue with 
another cycle or signals that the assessments are completed. When the 
assessments are finished, the results are displayed, the LOSS subroutine is 
called, and control in returned to the SUPER. 


H-VII-2. PROGRAM VARIABLES. 


Variable Description 
A | Acquisition data array 
ABORT Missile abort factor 
ACQ Acquisition discriminator 
ADUST Dust effects factor 
AH1 Starts record identifier 
AKILL Current losses to weapon systems 
ATCREW Number of infantrymen killed per antitank 
weapon 
BLUE Blue weapon system cumulative losses 
CLOST Crewmen losses 
DUST Dust array 
ELMTS Total number of targets 
ELS Total number of firers 
FARO Friendly barrage factors 
FOF Fire distribution factor 
FIRE Expected number of completed firings 
FIRE] Optimal expected number of firings 
FIRE2 Optimal expected number of firings 
FOX Expected number of firing multiplication 
factor 
I Firer weapon index 
TAM States record ammo index 
IBAMMO Blue round index 
ICAT Target weighting category . 
IFLAG Flag for displaying/suppressing table header 
IFLAG2 Loss hender flag 
I] Range index 
INC : History file parameter index 
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Description 


Input response variable 

Debug print flag 

Put call switch 

Positioning units index for attacker/defender 
Red round index 

Suppression degradation factor index 
Target documentation array 

First firer in debug run 

Last firer in debug run 

Ammunition type index 

Visibility pass number 

Target vulnerability category 

Firer force index 

Day/night condition variable 

Logical variable 

Attacker/defender firer force index 
Optical/thermal flag 

Positioning units index for contact 
Season variable 

Terrain variable 

Terrain type array 

Side debug variable 

Side debug variable 

Visibility variable 

Target weapon index 

Initial contact flag 

Force color 

Category type index 

Expected number of completed firings firer 
index 

First target in debug run 

Last target in debug run 

Target force index 

Attacker/defender target force index 
Weapon system (target) index 

Range index 

Weapon system (target) index 
History file field index 

History file field index 

History file field index 

Weapon system operational availability 
Gamer percent response variable 
Percent committed by range band 
Percent of targets visible 

Target's survival probability against firer 
Current losses to weapon systems 
Percent not smoked variable 

Optical Pickett factor 
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Variable 


Description 


Percent self-smoked by range band 

Thermal Pickett factor 

Percent not smoked array 

Red weapon system cumulative losses 
Ammunition fired per target 
Thermal/Optical flag 

Loss apportionment factor denominator 
Defilade SSKP/Final SSKP 

Weapon system single shot kill probability 
Fully exposed SSKP 

Suppression variable 

Suppression degradation factor coefficient 
Threat barrage factors 

Targets killed 

Firer's target 

Visibility degradation factor 

Weapon system category weights 

Weapon system engagements 

Fire distribution factor 


NOTE: All common variables are defined in appendix F. 
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Figure y.7, - ‘Tank . flow diagram. 
(Continued next page) 
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Figure H-7 Tank flow diagram (continued). 
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Figure H-7 ' Tank flow diagram (continued). 
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Figure H-/ ‘Tank flow diagram (continued). 
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APPENDIX I 
SECTION I. SUBROUTINE APPORT 


I-I-1. SUBROUTINE DESCRIPTION. This subroutine apportions the personne] 
casualties and weapon system losses determined in the Jiffy III Game combat 
assessment routines to the units on the FORCE file. The apportionment is 
based on an algorithm that considers quantity of losses, number of weapon 
systems in the unit, and the level of combat intensity of the actions in 
which the unit was involved during the assessment period. The combat 
intensity level for each unit in a given sector during a critical incident 
is input interactively by the gamers. The APPORT subroutine also compiles 
the cumulative combat statistics of all sectors for the entire critical 
incident. The cumulative loss and ammunition expenditures are kept on the 
HISTORY file. This subroutine also provides the gamers with the capability 
to display any specific parent unit or unit after the apportionment process 
by calling the DISPLAY subroutine. 


I-[-2. PROGRAM VARIABLES. 


Variable Description 

AAHI History file parameter 

AHI History file parameter 

AIRKO Quantity of given type weapons lost to 
TACAIR being apportioned to unit 

AKO Quantity of given type weapons lost to 
ground actions being apportioned to unit 

CBTINT Combat intensity factor 

CIL Combat intensity level factor 

CLOST Number of crew personnel lost 

CUMLOS Parent unit loss array 

DAIR Quantity of weapon systems subject to 
apportionment for TACAIR losses 

FS Direct fire loss accumulator 

HOLD Array (I+10) for current value of I 
File record word index; weapon system index 

ICIL Combat intensity level index 

[EFF Variable format array 

IFLAG Logic flag 

IFOR Variable format array 

THEAD Variable format array 

IHOLD Automatic CIL allocation indicator 

Il Weapon system index | 

INC History file parameter index 

INT Gamer response variable 

INX Gamer response variable 

IPRNT Variable format array 

[PUT Put call switch 
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5 


NOTE: 


Variable 


TUN 
TWD 
IWPN 


PARINIT 


PERS 
REMAIN 
RLOST 
SHR T 
TF PS 
UEFF 
XL. 


XN 


Description 


Do loop variable 

Weapon system index 

Weapon system index 

Force identifier 

Do loop index flag 

Force identifier 

File record word index 

Force col 

States counter 

Scratch variable for combat intensity 
Do loop lower bond 

Do loop upper bond 

Index-sequential file status variable 
sector and CI flag 

Record existance flag 

Print control flag 

Unit counter 

AD losses index 

States weapon index 

Large pack array 

Parent unit effectiveness 

Parent unit identifier 

Total parent fire power score 

Initial firepower score of parent unit 
Number of non-infantry personnel casualties 
Weapons remaining ss 

Weapon remaining 

Direct fire loss accumulator 

Total firepower score 

Unit effectiveness 

Packed weapon system losses to all types of 
comb at 

Unpacked weapon system losses to all types 
of combat 


All common variables are defined in appendix F. 
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Figure I-1. APPORT flow diagram (continued next page) 
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APPENDIX I 
SECTION II. SUBROUTINE BUILD 
T-II[-1. SUBROUTINE DESCRIPTION. BUILD is a duplicate of the SRC program. 


A copy of the SRC program was included in the Jiffy Game to provide the 4 
gamers the capability to create interactively new units in a force with 
existing or new SRCs during actual! processing of the Jiffy Game. BUILD 
allows the gamérs to develop new SRCs. The program logic flow diagram for 
BUILD is identical to the flow diagram presented for the SRC program. od 
I-II[-2. PROGRAM VARIABLES. 
Variable Description 
AHOLD First word of SRC record 
AJ Quantity of weapons being entered 
ASRC SRC identifier | 
I SRC record word index 
IID Weapon system item code 
INX Gamer response variable 
M Index-sequential file status variable 
MM Weapon item code being entered 
NN Weapon item code word index 
NOTE: All common variables are defined in appendix F. 
\ 
Q 
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APPENDIX I 


( SECTION III. SUBROUTINE CKACI 
| I-III-1. SUBROUTINE DESCRIPTION. This subroutine checks that the force 
7 file and history file are compatible and that post processor requests are 
} consistent with the CI information on the history file. 
= » 
I-III-2. PROGRAM VARIABLES. 
Variable ; Description 
v ACIO Old CI 
CCI CI name array 
I Do loop variable 
M Final position for force file 
N Do loop variable 
NCHK Sub-sequence CI flag 
NCAST Last CI flag 
NO Zero word index on CI record 
N1 Initial CI index on CI record 
N2 Final CI index on CI record 
WRD1 Scratch variable for history file fields 
WRD2 Scratch variable for history file fields 
XN Flag for history file field 
} 
© 
@ 
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Figure I-3. CKACI flow diagram. 
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APPENDIX I 
SECTION IV. SUBROUTINE CKSTOR 


[-[V-1. SUBROUTINE DESCRIPTION. This subroutine checks to determine if a 
record should be a replacement for an old record on the HISTORY file or be 
inputted as an entirely new HISTORY file record. 


T-IV-2. PROGRAM VARIABLES. 


Variable Description 
AH1 Stats record type 
I Do loop variable 
IPUT History file record flag 
NI Beginning index for stats record 
initialization 
N2 Final index for stats record initialization 
I-11 
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Figure I-4. CKSTOR flow diagram. 3 
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APPENDIX I 
SECTION V. SUBROUTINE CLEAR 


T-V-1. SUBROUTINE DESCRIPTION. This subroutine clears the HISTORY file 
records of a sector that is about to be regamed. 


T-V-2. PROGRAM VARIABLES. 


Variable Description 
I Do loop index 
II Do loop index 
M Final position of history file 


N Stats record key length 
RECS Array of stats record names 
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} 
i 
4 


NTER 
IF SECTOR IS 
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RETURN 


Fiqure I-5& CLEAR flow diagram. 
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APPENDIX I 
SECTION VI. SUBROUTINE COMBINE 
I-VI-1, SUBROUTINE DESCRIPTION, This subroutine allows the user to 
automatically remove a unit from the forcefile and causes its assets to be 
added to another unit. It {is used by the gamer to disband a unit that has 
suffered heavy losses. 


T-VI-2. PROGRAM VARIABLES. 


Variable Description 
DPAR Parent of disbanding unit 
DUNIT Unit ID of disbanding unit 
HPAR Parent of host unit 
HUNIT Unit ID of host unit 
I Weapon system index, logic flag 
W Working array for Unit assets 
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Fiqure I-6. COMBINE flow diagram (concluded). 
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APPENDIX I 
4 SECTION VII. SUBROUTINE DISPLAY 


I-VII-1. SUBROUTINE DESCRIPTION. This subroutine is called during gaming 

to display the status of specified units and parent units. The gamer has 

the option to display a particular unit or all units within a specified 

parent unit. The unit status parameters displayed include the unit 2 
effectiveness of the parent and subordinate unit(s) and the quantity and 

type of weapon systems remaining in each unit. 


T-VII-2,. PROGRAM VARIABLES. 


Variable Description m 
AR Number of weapon systems 
CIt Factor for combat intensity level 
I Unit record word index 
ICODE Weapon system item code 
IFLAG Print flag 
INC Increment counter 
INX Gamer response variable 
J Force identifier 
M File status variable 
PARENT Name of parent unit 
REMAIN Number of particular weapon systems 
remaining in unit 
TFPS Total firepower score 
UEFF Unit effectiveness 
UNIT Name of unit 
XLOST Number of particular weapon system losses 
I-VII-3. TYPES OF DISPLAYS. 
Display Type 
Index Display Information Displayed 
1 Lists all parent Parent ID, force designator, 
units on FORCE file Parent unit effectiveness, 
sector and critical incident 
2 Lists all parent Parent 1D, force designator G 
units in defined and Parent unit effectiveness 
sector and critical 
incident : 
| 
3 
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specific parent 
unit 
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Information Displayed 


Parent ID, Unit ID, force 
designator, unit effectiveness, 
sector and critical incident 


Parent ID, Parent unit 
effectiveness, Unit ID, 

unit effectiveness, 

quantity and type of weapon systems. 


variables are defined in appendix F. 
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Figure [-7 DISPLAY flow diagram. - 
(Continued next page) | 
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Figure 1-7 OISPLAY flow diagram (continued). 
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Figure 1-7 DISPLAY flow diagram (continued). 
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APPENDIX I 
SECTION VIII. SUBROUTINE ENOCI 


I-VITI-1. SUBROUTINE DESCRIPTION. This subroutine performs end of CI 
booking on the history file and force file. 


: I-VIII-2, PROGRAM VARIABLES. 


i 
| 
ht 


l @ 
Variable Description 
AH1 Stats record type 
I Do loop variable cS 
IPUT CKSTOR input parameter 
M Final positions of force file 
/ 
O 
3 
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APPENDIX I 
SECTION IX. SUBROUTINE FORCE 


I-IX-1. SUBROUTINE DESCRIPTION. FORCE is the subroutine by which the 
gamers manipulate their forces in the Jiffy Game. FORCE is reached by a 

. gamer response of "1" at the DECISION POINT in SUPER (see table 1). After 
the gamer defines the critical incident and sector, he is presented his 
choice of the nine force manipulation options. Upon completion of all but 
OPTION 0, the game is returned to the OPTION point. A response of "0" 
loads the weapon systems of all units loaded into the defined sector and 
critical incident into the weapon system (ELMT) array for both forces and 
returns control to SUPER. The display option (6) provides the gamer the 
capability to examine the FORCE file in four ways. The four types of 
displays accessible at OPTION 6 are given in I-VII-3. Subroutine DISPLAY 
is used to display all four types. 


[-I[X-2. PROGRAM VARIABLES. 


Variable Description 
AH2 History file parameter 
AJ Quantity of weapons to adjust 
AVN Parent variable 
CIL Combat intensity level factors 
CV Relative effectiveness 
I Do loop index 
ICIL Combat intensity level 
[EFF Unit effectiveness 
IFLAG Logic flag 
IJ SRC record weapon index 
INC Unit loaded counter 
INX Gamer response variable 
IPRO EW type 
IPUT Logic flag 
J Force designator 
JJ FORCE record weapon index 
JREGM Run type indicator 
KIND Force color 
M Indexed-sequential file status variable 
MM Type of weapons to adjust 
NV Storage position indicator 
PAR Parent unit ID 
PARENT Parent unit ID 
TFPS Total firepower score 
UEFF Unit effectiveness 
UNIT Unit ID 
XCI Critical incident name 
XSECT Sector number 


ee ae ae ee eee aed 
3 


T-IX-3. FORCE MANIPULATION OPTIONS. 
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Response 
Code Option Description | 
o ar 
0 Proceed with assessments | 
1 Load units into sector 
0 2 Remove units from sector = 
3 Create a new unit 
4 Adjust weapons in a unit 
5 Attach a unit to a new parent 
6 Display a unit 
7 Delete a unit from FORCE file 
8 To combine units 
NOTE: ATl common variables are defined in appendix F. 
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[-27 
i | 
| ss, on £ 
; ki | 
* Pr. . 


ar et el A 


ae Oe —- 


ENTER OPTION 


BRANCH ACCORDING TO OPTION 


| __Ranct accoRoING TO cPTION 
ofr tejsis [ste fz Le | 


Figure I-9 FORCE flow diagram. 
(Continued next page) 
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Figure I-9 FORCE flow diagram (continued) . 
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Figure I-9 FORCE flow diagram (continued) . 
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Figure I-9 FORCE flow diagram (continued). 
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Figure {-9 FORCE flow diagram (continued). 
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SECTION X. SUBROUTINE LOSS 


[~X-1, SUBROUTINE DESCRIPTION. 


This subroutine is used to subtract weapon 


systems lost in the combat assessment subroutines from the weapon system 
arrays. This also allows the gamer to replay the combat, if the original 
assessment is for some reason invalid. LOSS stores the ammunition expended 
during a valid assessment in the ammo accumulator SHOTS. 


T-X-2, PROGRAM VARIABLES. 
Variable 

AKILL 

I 

INX 

ISTART 

ISTOP 

J 

K 

KSTART 


KSTOP 


Description 


The number of weapons type I kill by all 
firers 

Firing weapon system index 

Gamer response variable 

Variable indexing beginning subscript of 
firers 

Variable indexing ending subscript of firers 
Force identifier 

Index for weapon systems lost 

Variable indexing beginning subscript of 
weapon systems lost 

Variable indexing ending subscript of weapon 
system lost 


NOTE: All common variables are defined in appendix F. 
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Fiqure I-10- LOSS flow diagram. 
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SECTION XI. SUBROUTINE NEWHIS 


I-XI-1. SUBROUTINE DESCRIPTION. This subroutine creates a CI on the 
history file without losses to permit restarting at the start of the 
battle. The gamer is not permitted to make assessments in this CI. Also 
NEWHIS allows the gamer to assign units to sectors without entering the 
name of the unit. The names are displayed on the screen by NEWHIS. 


I-XI-2. PROGRAM VARIABLES. 


Variable Description 
AKEEP Old parent name 
I Do loop vartable 
TACT Gamer input variable 
II Do loop variable 
INX Gamer input variable 
IYN Gamer input variable 
J Do loop variable 
M Final position of force file 
NEW Existing record flag 
SECT Sector number 
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Figure I-11. NEWHIS flow diagram. 
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APPENDIX ‘I 
SECTION XII. SUBROUTINE RESET 


Description 


CI on ELEMNT file 
Sector on ELEMNT file 
Weapon system index 
Gamer response variable 
ELEMNT file key 

ELEMNT file key 
Previous CI 

Previous sector 


This subroutine permits quick 
investigations of the assessment routines without going through the loading 
It is used for problems that do not requiring ons 


de 


a 
Lk ak Ste 


oe —s phy ee as Sore: 
oa 
a a ee ee een ee 


Figure I-12. RESET flow diagram (continued next page). 
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Figure 1-12. RESET flow diagram (concluded) . 
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APPENDIX I 
SECTION XIII. SUBROUTINE RESTART 
T-XITI-1. SUBROUTINE DESCRIPTION. This subroutine permits the gamer to 


Ag eg entire force file for a given CI or at just selected sectors of 
e CI. 


; 


mx | 
4 T-XIII-2. PROGRAM VARIABLES. 
i 7 Variable Description 
q ) HOLD Old CI name 
a TALL Game response variable 
IT Do loop index 
IYN Gamer response variable 
M Final position of history file 
MM Final position of force file record 
NEW Force file record flag 
‘ 
# 
! 
0 
0 
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APPENDIX I 


SECTION XIV. SUBROUTINE SHOWCI 


SUBROUTINE DESCRIPTION. 


obtain a list of the CI's on the history file. 
l-XIV-2, 
Variable 
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PROGRAM VARIABLES. 


Description 


Old CI 
Gamer response variable 


This subroutine permits the gamer to 
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Figure I-14, SHOWCI flow diagram. 
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APPENDIX J 
SECTION I. INTERACTIVE INTERFACE OVERVIEW 


Je-I. GENERAL DESCRIPTION. There are ten subroutines in this group. Each 
subroutine is defined in the next section. Figure J-1 shows the overview 
of these subroutines interactive relations. The major function is designed 
for more efficient use of the program. It permits quick investigation 
assessment routines without going through the loading processes. The other 
functions are to write on the ANSWER file and REVIEW files. It checks for 
end of ANSWER file and informs the gamer. 
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Figure J-1. Interactive interface overview flow 
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JeII. SUBROUTINE DESCRIPTION AND VARIABLES. 

f SUBROUTINE CKANS 

' 1. CKANS. 

s a. DESCRIPTION. The subroutine CKANS allows the users to see and 

7 v modify the answer file produced using either subroutine JOHN (batch option) 
or subroutine REVIEW (previous answer file option). 


b. PROGRAM VARIABLES. 


w Variable Description 
I Character index 
ICHANGE Change flag 
IGETS Starting character of answer 
INSRT New answer number 
NX Gamer response variable 
ISTACK Lines of answers displayed 
J Answer number 
JJ Line number 
J2 Number of last answer on line JJ 
2. GET 4, 


a. DESCRIPTION. This subroutine reads up to 4, positive or negative, 
real or integer values from gamer inputs. 


b. PROGRAM VARIABLES. 


Variable Description 
ID0 Do loop index ° 
IFACT Index factor 
IMULT Multi function factor to produce real number 
IMULT2 End of string factor 
INEL Negative flag 
IOUT Number of numbers read 
LINE Gamer input line 
© XNOS Arrays of input numbers 
: XNUMB Element of XNOS 
3. HOW. 
0 a. DESCRIPTION. The subroutine HOW is used to determine, through 


gamer input, how many answers on the REVIEW file are to be executed. 


b. PROGRAM VARIABLES. 


Vou or ey a ae Te 


Variable Description 
. TERROR Error return variable 
4. JOHN. 
a. DESCRIPTION. This subroutine processes batch mode input which 
allows the gamer to enter a series of answers without waiting for the 9 
computer response. 
b. PROGRAM VARIABLES. 3 
Variable Description Oo 
ILIM Maximum number of answers | 
INX Gamer response variable 
INZ Gamer response check variable | 
5. REEDA. | 


a. DESCRIPTION. REEDA provides a central input subroutine whenever | 
the program needs a y or n. It checks for all the option available in the 
interactive package. Also REEDA has an entry point REEDA to provide for an | 
input, up to 10 characters long, whenever the program needs it. 

| 
| 


b. PROGRAM VARIABLES. 


Variable Description | 
TARMOR New armor flag 
ICARD Scratch array for gamer input 
JDAY1 Day or night flag 
XINX Real array for gamer input. 
6. REED4, 


a. DESCRIPTION. This subroutine reads up to 4 numerical values and 
checks for all options in the interactive package. Also REED4 writes on 
the ANSWER file and REVIEW files. It checks for the end of the ANSWER file 
and informs the gamer. 


b. PROGRAM VARIABLES. 
Same as REEDA. 


°© 
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7, REVIEW. 


4 
{ a. DESCRIPTION. This subroutine allows the gamers to review questions 
: and answers of the previous run and run the same game with any of the 
4 answers changed. 
: Variable Description 
‘ © 
F IDEX Answer number in review | 
- IEDIT Question number 
IGETS First column of new answer 
IGET1 Number of answers to read from input line 
wo I JN Answer number in JOHN 
I JOHN Batch mode flag 
IJON Answer array 
IMAX Number of answer in IJON 
IREVF Review mode flag 
113 Storage array for current questions. 
8. SHORT. 
a. DESCRIPTION. This subroutine produces end of input file messages 
and connects the technical input file. 
b. PROGRAM VARIABLES. 
Variable Description 
NORM Normal return variable 
9. SHOWIT. 
¥. a. DESCRIPTION. This subroutine rewinds the intermediate output file 
= (Tape 51) and copies it to the terminal output file (Tape 50) and in the 
; meantime produces the answer file and the QA (question and answer) file. 
b. PROGRAM VARIABLES. 
Variable Description 
© I Word index 
; I SHOW Entry point variable 
IZ Last Tine 
J Word index 
JJ Reverse word index 
0 SHOWME Terminal output entry point 
SHOW3 Terminal and answer file output entry point 
J-5 
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10. TERM. 


a. DESCRIPTION. This subroutine connects or disconnects the output- 


file depending on gamer input produces associate messages. 


b. PROGRAM VARIABLES. 


Variable Description 
INX Gamer response variable 
TRUN Fun index type 
NGOT Normal return variable 
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APPENDIX K 

FUNCTIONS 
Section I INDEX 5 
Section II NUMB 


| 
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APPENDIX K 
SECTION I. SUBROUTINE INDEX5 


K-I-1. SUBROUTINE DESCRIPTION. This subroutine is a subfunction that 
calculates a one-dimensional subscript from a five-dimensional variable. 
K-I-2, PROGRAM VARIABLES. 
Variable Description 

INDEX5 Equivalent single subscript 

Ii First paramenter subscript 

12 Second parameter subscript 

13 Third parameter subscript 

“14 Fourth parameter subscript 

15 Fifth parameter subscript 

L1 Length of first parameter array 

L2 Length of second parameter array 

L3 Length of third parameter array 

L4 Length of fourth parameter aray 
NOTE 


Al? common variables are defined in appendix F. 
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CALCULATE 
INDE XS 


Figure K-1 INDEXS flow diagram. 


APPENDIX K 
SECTION [I. SUBROUTINE NUMB 
K-II-1. SUBROUTINE DESCRIPTION. This subroutine is a subfunction that 
produces a string number left justified followed by blanks, determined by 
an integer input. 


K-II-2. PROGRAM VARIABLES. 


Variable Description 
INUMB Scratch variable 
IT Do loop index 
IX Input of input number 
Il 100th digit 
12 10th digit 
13 Unit digit 


~NUMB Hollerith number output 


f 
| 
g 
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START 


CALCULATE 
NUMB 


RETURN 


Figure K-2. NUMB flow diagram. 
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APPENDIX L 
POSTPROCESSOR SUBROUTINES 


L-I. GENERAL DESCRIPTION. The Jiffy postprocessor consists of 17 
subroutines and designed to assist the analysts and gamers working with the 
Jiffy war game in studies. The history file accessed by the postprocessor 
consists of records written during the subsequent to running of the Jiffy 
war games. The postprocessor can then summarize the results data into 
various levels of reports. A sample of print-outs is shown at the end of 
this appendix. A overview flow diagram of the postprocessor is shown jin 
figure L-1. The description and program variables for each subroutine are 
given in the following section. 


L-IZ. SUBROUTINE DESCRIPTION. 


1. ACCUM. This subroutine assesses the history file to fill the Killer/ 
Victim Array (ALOSS), initial weapon/array (BECON), ending weapon array 
(ELMT), and the ammunition expenditure array (SHOTS). 


2. BULLET. BULLET writes out the table of ammunitions usage. It checks 
to see if type of report request (IOUT) is within bounds and skips to a new 
page. The other functions are: writes out heading information, report 
information array SHOTS, which generates the ammunition expenditure table 
for the postprocessor output file. 


3. COMMIT. This subroutine sums the weapons remaining in all committed 
units at the end of a specified CI. A committed unit is one that is 
currently being gamed or has been gamed during some CI. Uncommitted units 
are in the sector zero and are subtracted from array BEGIN. The other 
functions are: 


o checks range of CI index 


0 loads keys to access directly the index sequential history file for 
a CI. 


o reads unit records and accumulates weapons committed in array ELMT. 
o Subtracts uncommitted weapons from array BEGIN. 
4. GITNMS. This subroutine retrieves the record containing the CI names 
and stores it in ARRAY. It indexes of first and last CI of interest in 
ARRAY are stored in NC11 and NC12 respectively for partial or full game 
output. The other functions are: 


o sets keys for direct access to index sequential file for "CINAMES" 
record. 


L-1 


o puts record accessed into ARRAY. 


< o searches for index of CIs of interest CCI(1) and CCI(2) and sets 
g indexes NC11, NC12. 


© insures CCI(1) and CCI(2) are in proper chronological order. 


5. HEADER. This subroutine writes out proper heading for reports being 9 
created and checks to insure that the report parameter (IOUT) is in bounds. 


6. KILCAT. This subroutine writes losses by source of loss table to the 
output file, and generates losses by source of loss tables (red and blue) 
for postprocessor output file using array CATLOS. cs 


7. KILVIC. This subroutine writes out the killer/victim matrices for the 
Six types of assessments. 


8. NEWPAG. This subroutine causes printer to skip to the top of the page 
and writes a brief header. 


9. OPTLER. This subroutine enables the generation of optional LER's 
interactively, and calculates LER. It also prints LER requested with 
number of weapons only and with firepower times the number of weapons. 


10. POST. This is the executive subroutine for the Jiffy game output 
processor. The type output to be generated is set along with the 
appropriate parameters and then subroutines take over to actually 
accumulate the desired game data and create the output file. 

11. RATIOS. RATIOS computes and writes out the headings and standard CI 
ratio statistics to include: 


=, > a or a - 
sa 


Loss exchange ratio (LER). 

Initial force ration (IFR). 

Fractional exchange ratio (FER). 

Surviving maneuver force ratio (SMFR). 

Surviving maneuver force ratio differential (SMFRD). 


Tetras naan 
oo 0oco 


! 12. RECVRY. This subroutine computes the damage and recovery table and 
q writes out the damage and recovery tables. 


13. REPORT. This subroutine calls all subroutines in sequence and forms 6] 
reports. 


14. SUMTOT. This subroutine fills the total array by summing the BEGIN, 
ELMT, and D arrays. Total is then used to generate the ratio statistics. O 


15. SUMUP. This subroutine fills CATLOS, CATSUM, and D from the ALOSS 


| 

| 

array. | 
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16. TRACE. This subroutine generates sequential LERs, SMFRs, SMFRDs for 
partial or full game. THe other functions are: 

Sets beginning CI of interest. 

Sets ending CI of interest. 

Sets a new page. 

Calls XOUT to zero arrays. 

Calls ACCUM to fi}] arrays. 

Calls RATIOS to form report. 

If required, repeats process. 


ooo o0 00 


17. XOUT. This subroutine zeroes all arrays and varfables. 
L-IIZ. COMMON ARRAYS AND VARIABLES. 


1. Two programming methods are used to transfer data among the post 
processor subroutines: 


a. Arrays and variables are passed in the subroutine calling sequences. 
b. Arrays and variables are stored in COMMON blocks. 

2. Definition of COMMON Arrays and Variables. 

IOUT - Contains interactively entered output option 

Single sector 

Partial CI (muliple sector) 

Full CI 


Partial game 
Full game 


ON & WP 
* * ee e @ 


KIND (2) 


1 = literal = "BLUE" 
2 2 literal = "RED" 


TOTAL (3,2,2)(I,J,K) totals for weapons beginning/surviving/kil led 


firepower. 
I=1 Total initial wpns 
I =2 Total surviving wpns 
I 2 3 Total wpns killed 
Jz2zi Blue weapon systems 
J22 Red weapon systems 
K =] Beginning numbers of weapons by type 
K 22 K = 1 times firepower score 


Begin (65,2) accumulator of the number of weapons alive 
(I,J) er committed at the beginning of output 
per jod 


L=-3 


1a gE a ev ~ i 


I = 1 -65 Weapons type 


Jz] Blue 

J2z2 Red 

NCI1 Index of CI beginning multiple CI reports in 
vector ARRAY. 

NCI2 Index of CI ending multiple CI reports in 


vector ARRAY. 
CATLOS(65,11,2(1,0,K) Killer/victim loss arrays filled from ALOSS 
65 weapons killed by 11 classes by Blue by Red 
I = Weapon types 1-65 (Victim) 
J = Weapon classes l-l1 (Killer) 
K = 1 - Blue 
2 = Red 


CATSUM(11,2(1,J) Number of losses by category by Blue by Red 
I = 1--l1, category of files 


J = 2, Blue 
J = 2, Red 
TYPE (5) 

(1) literal = “ONE SECTOR" 
13 literal = "PARTIAL CI" 
3) literal = “FULL CI" 
(4) literal = “PART GAME" 
(5) literal = "FULL GAME" 


NCIL Index of CI in record CI NAMES of CI stored in CCI(1) 

MCI2 Index of CI in record CI NAMES of CI stored in CCI(2) 

LFIT(35) array used to rewind, open, close, and access the index 

sequential force file (not used in postprocessor). 

eae Array used to store the names of the CI (for postprocessor only). 


I = 1,2,3 unused 

I = 4,....,90 contains the name of the I-3 critical incident (CI). 
MYBUE(1024) buffer used by GET and GETN utilities to access index 
sequential force file (not used in postprocessor). 

es Accumulator of weapon losses by weapon type 


I = 1,....,80, weapon type 
I = 1 Blue 
2 Red 
ACI - Name of CI being processed 
ASCENE - not used in the postprocessor 
ASECT - number of sector being processed 
COMMON/THREE/ IHIST(35), AH(903, LYBUF (1024) 
IHIST(35) array used to access index sequential history file 
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AH(90) working storage for 90 word index for sequential history file 
IYBUF (1024) Buffer used by GET and BETN to access index sequential history 


Te. 


ELMT (80,2) 
ALOSS (80,80) 
SHOTS (55 ,2) 
CKILL (53,2) 
SHOT SV(55,2) 


Index for the attacker force 

Index for the defender force 

Index for the tactical situation table 
Index for the tactical situation 

Index for terrain type 

Index for visibility 

Index for attacker mobility 

Minefield flag 

Maneuver firepower ratio 

Fire support firepower ratio 

Total firepower ratio 

Length of the CI in hours 

Rate of advance calculation flag 

Index for run type 

Night or day index (day = 1, night = 2) 
Fraction of sector (footage) massed by attacker 
Suppression factor 

Fire support suppression factor 

Work packing variables 

Array of weapon system in the sector 
Weapon loss array (packed) 

Round expenditure array 

Crew kills. 

Temporary storage array for SHOTS 
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OPTLER RATIO (1) 
NEWPAG* SUMTOT (2 ) 


* The calls to NEWPAG are not shown. NEWPAG jis called by REPORT, RECVRY, 
KILCAT, BULLET, KILVIC, RATIOS, OPTLER, and TRACE. 


Figure L-1. Postprocessor overview flow diagram. 
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SECTION IV. SAMPLE OUTPUTS FROM THE POSTPROCESSOR 
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APPENDIX M 
JIFFY III PROGRAM LISTINGS 
M-I. GENERAL DESCRIPTION. 


M-I-1. This appendix contains the FORTRAN Program Source Code for the 
entire Jiffy III program. This method of presentation should be more 
efficient and useful than fragmenting the code into subroutines for 
inclusion in the various appendixes. 


M-[-2. Several sensitivity tests have been run, resulting in modifications 
to model logic. In addition, the Jiffy III program was subjected to 
extensive review and debugging in December 1979. No significant model 
changes were required as a result of the sensitivity analysis and review; 
corever te few input data changes were made, which are incorporated in 

vo ]ume ; 


M-I-3. The program listings in this appendix are from a printout dated 8 
February 1980. The Jiffy model, however, is the subject of continued 
modification and improvement for future studies. 


M-II. Index for Jiffy III Programs and Subroutines (Feb 80 version). 


Name 


PROGRAM BUILD (SRC Generation Program) 


PROGRAM UNIT 
PROGRAM PARENT 


PROGRAM MATRIX (Force Generation Program) 


PROGRAM SUPER 
SUBROUTINE SHOWIT 
: REEDA, REEDB 
- REED4 


‘ ENOCI 

‘ RESTART 

SHOWC I 

INIT 
FUNCTION INDEXS 
SUBROUTINE LOSS 

. DISPLAY 

i RESET . 

SUPRES 

i ROFA 


EW 

‘ TANK 
"INFANT 
: MINE 

‘ FASCAM 
. CANNON 
. CLGP 

: FORCE 
‘ COMBINE 
CKACI 
‘ NEWHIS 
i CLEAR 
i APPORT 
. BUILD 
" AHAD 

. POST 


Line Sequence Numbers 


From 


000001 
000001 
000001 
000100 
110 
3390 
3940 
4540 
4970 
5470 
§980 


To 


000224 
000294 
000296. 
004690 


3140 
3920 


Page 


XY 2? 


nee es 


#S 


Name 
SUBROUTINE 


SOT M Lym at Act thea tamales ie anne at? = and Semnee ct 


XOUT 


Line Sequence Numbers 


From 


73160 
73700 
74550 
77260 
77870 
78400 
78820 
79300 
80570 
81830 
82740 
83100 
84440 
85290 
87010 
87330 


To 


73680 
74530 
77240 
77850 


78380. 


78800 
79280 
79690 
81810 
82270 
83080 
84420 
85270 
86990 
87310 
87820 


Page 


M-192 
M-194 
M-196 
M-202 
M-204 
M-206 
M-207 
M-208 
M-209 
M-212 
M-214 
M-215 
M-218 
M-220 
M-224 
M-225 


== 


SO SS Se 


PROGRAM BUILO CINPUT, QUTPUT, TAPES, TAPER INFUT) gacoar 


0 


COMMON/ONE/ LFLT (35) oIFLGCL) 909092 
___OIMENSION ARRAY (46) »ACHG (66) » AERR(22) 9M YBUP (1026) g00003 
19 ICKse 099006 
20 CALL. - FILEIS(IFIT» SLLEN, SLT APES: 2LK fy ARRAVs2LPM,1LR, 00000 
~~" S3LFW Ie SLYESe SLOFS 1024 3LFWOMYOUF) 099006 
_ CALL CONNEC(SLTAPES) 990007 
IF(ICKeEQ.4H0) GO TO9. — §06008 
__IEULCKEQ.tHL) GO TO 9 000009 
"ARRAY C4) 8* SRO aa aa = 300020 
402. FORMAT (1429) 000015 
AHOLOZARRAYG1). CO oe acs THITE 
Q ARRAY(1)3AHOLO) a _ 000013 
a IF(ICK.EQ.14H0) GO TO 860 renee une or 000016 
___ sd TF CTCK EG. 20) GOTO t® = 99:5 
12 00 L1 L246 0000126 
ARRAY(I) = 0 0009147 
ii CONT INUE TITEG 
00 12 I = tees ve en 1.77 
ACHG (i) = @ acca2d 
L2 CONT INUE eet Ts! 
ge ts f*® 1.22 °°» ee ee ee ee ——“goog22 
AERR(I) 2 9G 900023 
is conrinue | ao 0000 2% 
c eae ss aeeaes 
eo ——j0ve 00 LOOPS ZERO GLY woRe ARekAYS” agagze 
Ns ah et ee te a se tas hee eye ele | Seen eee etn OOO ET 
te PRINT ide gcqc24 
a2 FORMAT(¢X, “ENTER ACTIGN TYPE( K FG STie “3 ] 
tii FORMAT (1X,4"FOLLOWING ACTIONS CAN SE EXECUTED"./. a00c3a 
LiXe*Re REAO (REVIEW) A RECORD™»/, _ 9909931 
22X97 A2 ADO A NEW SRC “s/o 300032 
3i%,°C= CHANGE/AOD WON TO*S/QTY*S WE THIN AN EXISTING SRCO“5/, 900033 
e1Xe*02 DELETE AN SRC ANOZOR WPN SYS IC WITHIN THE SRO “c/, 590034 
SiX,*Ls LIST ALL SRO°S ON FILE,/ 1935 
61Xe*Es ENO THE PROGRAM) 800036 
READ 16,103) ICK 909937 
1063 FORMAT (1AL) . 0900038 
IFCICK.EQ.4NX} PRINT 111 109039 
IF CICK .EQ-iHK) GO TO 6 1960989 
_____CTFCICKEGe1HRI GOTO 5QG) 0 
TFCECKeEQei HA) GO TO 609 TITLE 
FILCK.EQ.iHC) GO TO 70 gages 
IFtLCK.EQ.i0) GO YO 800 390046 
IFCRCK.EQetHL) GOTO 1000  —s—“‘“‘“‘(‘(S™™C~*~*C*s*~—C—C‘“‘“‘(‘é QS 
LFCCCK.EQ.tHE? GO TO 900 300086 
PRINT 10% 190047 
“Tm FORMAT (1X,"AGTION COCE ERROR-TRY AGAIN) 0000% 
Go £0 16 0883S 


Se A A 


M4 


et eS = a a a ne ee et 


f 


7 m1 i o at 
mihtadaihtianietieadiate: ohne eee 
. 


ewe ee eee <= - = = 


_sogertnyso, eC —“‘SCSCSCS*C*C*CSC*C*C#¥ SS 


Sot FoRwat (1X. “REA0-ENTER SRCIENO TO EXITI~  ~) 900054 
____—s—s«éREADGHeS02) ASRO ——( —“‘(C‘Csi‘“‘SS~—C™C™C™C™C™Um tn 52 
CALL OPENM(I®IT. 3LE~O! 300053 
S02 FoRwat (1A10) Su 
SRC EG IRONY COO ss 
ARRAY(2) 2 ASRC 060056 
ARRAYS) = 999909 SOOO. (VW'”W —~900947 
_CALL GET CIFET ARRAY, ARRAV(2)) = CGSB 
IF (AARAY (3) .£0.99999) GO TO 550 TITLE 
PRINT S33 ,ARRAY(2) 0960 
SIS FORMAT (1X0"SRCE", A100 5K,” 10 QTY™I 600061 
00 55 £a3,6552 306062 
{F CARRAV(1) E00 0) GO TO 505 900063 
ZJOO#ARRAVIIT) FG HH 
PRINT SQu> ( IO0.ARPAYCLO1) 060065 
S06 FORMAT (20x X5F5,99 6 
$05 CONT INUE 000067 
CALL CLOSEMCIFIT) 069068 
| a rs = 000069 
__$50 PRINT 551, ASRC 900070 
551 FORMATILX< “SRC “cAlde* NOT ON FILE™) SS 900072 
CALL CLOSEM(IFIT) ag0g72 
30 FO 800 qoaors 
16 _ GALL. CLOSEM (ZeIT) __ 00087% 
—~——66 FO 10 000075 
600 PRINT 60 300076 
“Gdi  FORNAT CAN, *AOOCENTER EW SRE TENO VO EXIT 2S 8) 7 
CALL OPENM(TFIT, 342-0) goog78 , 
READ (6,502) ASRC eo0s7o) 
IF(MSRGEQ.3WENO) GOTO26 = . 
ARRAY (2) @ASRC 300081 i 


ARRAYV(3) = 99999 8009082 
CALL GET (IF IT. ARRAV ARRAY (19) 000083 


_ NNat ae ______ 99689 86 
PRINT 7003 690087 

7001 FORMAT(1X, "ENTER WON 10 .QTY=--0,0 IF OONE “ 6000466 
887 READ (6,*) AMeAJ 880089 
TF (aM.EG.0) GO TO 886 920990 

NNSM NO? 00009: 
ARRAY (NM) SAM 92 

ARRAY CNNOL) SAL aaca93 

si a RE OS 6 OE Ge ni GS 
GO TO 88? 600095 

§ 


___ §88_ CONT INUE We LARA REET 8 
CALL PUT IITFIT ARRAY. 660 oA PRAY (19) 390997 


a + oc — =e e 


———__—_ a IF ET CHALE 98 
IF CM.IJ%O0688 GO TO 6t8 990099 

—_ 803 FORMAT (1 X,"SRO™ ALG” ALREAOY ON FILET) OO 88208 
GO TO 612 000262 

610 PRINT 603, ASRE 99.93.92 

42 00 511 122.46 000163 
ARRAY(I) 99 000106 

~ +612 CONTINUE 3092905 


Cal. CLOSEM(IFIT? 106 
——i5'fs 600 . 006107 
RAN ay TL ea NGE CENTER ERE TENS PO BRD OE 

Oi FORMAT (1X. GHANGE-ENTER SRG(ENO TO EXIT)-~ -) g06109 

*READ(6,702) AS 9210 
———titr ave NA CERETCSUCE Os Newest oe ; as TITS 
Bem a LAL A) a eee | | fee f 


? F i > 
IF CASRC.EQe3HENO) GO TO 26€ 600113 
ARRAYV(3) = 99999 g9012% 
ARRAY(2) 2 ASRC 08062115 
CAL. GET CIFIT» ARRAY, ARRAY (23) 000116 . 
RRAV (33 .NEe 9 & fs] 8 000227 . 
799 PRINT 703 «+ ARRAY (23 990238 - 
703 FORMAT(LX,“SRC *.A1G," NOT ON FILE®) 000119 | 
GALL CLOSEMC IFT) 990220 
60 TO 764 806122 
750 PRINT 70 
READ (6,*) TEND a 009223 
wostemne2? tt 
PRINT 7902 609125 
A FORMAT (2 X, “ENT we ooo® 
READ(Ge*) (ACHG(I)D 224. TENO ) 800127 
2 0225 
90 748 J21-ITENO.2 0006229 
TF CAGHG (50. EQ. 9) GO TO 789 g00g23¢ 
00770 123.45.2 000232 
ITF CARRAY (YT) EQ. ACHG( JI? =89GO TO 776 096132 
770 CONT INVE 900233 
5 RE 
AERV(K)? 2 ACHGTY) 060135 
00 775 .23,%5.2 062320136 
Lf CAARAVILY NE. G) GG 10 775 006137 
_. ARRAY (0) SAC HG (J) 
ARRAY (Lo1) 8 ACHG(JOL? : 363239 
—______. 60 F90 8249 
77S Conf INvE 80241 
_.._._«. 60 0 786 —ssi‘“¥ ae aero i gS a i oe 2 5 ie OO 
776 ARRAV(Te1L) = ACHG (JL) i 000143 
__788 CONTINUE GG le 
798 CALL REPLCCIFIT. ARRAY o% 60 oA ARAV(L)) 006245 


nd age tN SD meg ea 


&6 


PRINT 706- ASRC, ( AERRII? » Ist kK ? 600147 
706 FORMAT (LX, "FO WING wen fT T FOUND F “A & 
LEXo* THEREFORE WERE AGGES TO THE SRC RECORO”,/, 22(F 5.93) 600169 
791 Cath OSENCIFIT) 
& oO 709 000151 
808 PRINT 3 
801 FORMAT (1X, “QELETE-ENTER SRO(ENO TO EXITi~-e ~) 066153 
) le 
cps OPE NMC(CTFIT,3LI-08 © 9003 55 
IF CASRC.EQ-3HENO) GO TO 16 869157 
PRINT 7OG3 990358 
7003 FORMATIM ENTER TOTAL NO. OF WPN SYSTEMS TO GE OELETEO-", 600159 
7? 
ZEAQ(6.%) TEND 000261 
ARRAY (2) ASRC 900162 
ARRAY (3) 399999 0909263 
CALL GETCIFIT. ARRAY, ARRAYC1?) 090164 
LF (ARRAY (3) .E9. 99999) GO TO 840 0903265 
LTFC(LENO-EG. 6) GO TO 8696 900166 
RINT." ENTER WPN o* ff 8 LE = q0167 
AJ (60%) (CACHG( I) 
TPUGRRAY (3) NE C9993) 60 ra 658 486269 
___8%69 PRINT*," SRC 7 ARRAY( 2) »* NOT ON FILE 8003273 
“CALL CLOSES (IFIT) GOCL72 
__ 60 FO aes 999272 
6850 TF CACHG(13.EQ. 0% GO TO 890 960173 
Ksg Q0037% 
00 8898 J21.IENnO 900175 
ITF (ACHGE J) .EG,0) 66 TO 888 000176 
00 $608 {23,452 GeaL77 
IF CARRAY(T).EQ.0)? GO TO 862 090178 
TF CARRAY (£2 -EQ.ACHG (UI 3 GO TO 4866 6900179 
666 CONT INUE 
Kako? 0090281 
_ _RERZOK) © ACHE LUD TIS Ts 
“60 FO 860 ¢aa2183 
___866 ARRAY(T? = 0 000286 
“Aareeaviter?, =« ¢ 090155 
__ 680 CONS TINUE 969284 
CALL REPLOCIFIT ARRAY 060 A ARAV(1)) 0309187 
TF(K.€Q.0? GO TO 891 000188 
PRINT 8000, ASRGe (AERR(T) Tet, K) 606189 
8060 FORMAT(LX,* THE FOLLOWING WRN 5.0.°S WERE NOT FOUNG FOR SRC@ 900290 
eo 1Xe Al1Ge 40 1XeZ2(FS. C3) 9902912 
891 CALL_CLOSENCIFIT? 999192 
© GO fo 800 900193 


at en eee 


2 ee eee 
* 


898 CAL, OLTEC TTT ARRMAVEX)) OFF BE 

CALL CLOSENCIFIT) 6091295 

____.__§9 FO 800_ Reece eee eRe Seen — 909296 

1006 CALL OPENNC(ITFIT. 3LI-09 006197 
CONT INUE 

CALL NCIFIT, ARRAY ARRAY(L)) 606199 

MslTETCHCIFIT, 2LFP) 990206 

IF (e.€0.1008) GO To 1S 033202 

LF (AHOLD EQ ARRAV(E2) GO TO 2209 990292 

60 FO 21308 goa20s 

$ CA LOSENCE FLT) a 

GO TO 29 990295 

£200 PRINT 503, ARRAVI2) ; 0092G6 

00 2265 £e306Se2 000287 

——._--__-LF (ARRAY LT) -EG 2-9) GO TO 3295 3 3=3Ess 

100s ARRAY (I) o09209 

PRINT 50%, (IDO,ARRAY (LOL?) gog210 

1208 Conf INue Gd02t1 

_00 £206 Ie2,66 2S? 

ARRAY(T1) 20 060223 

2206 CONf TINUE goo216 

- 60 FO 1286 eeo2ts 

908 PRINT 9000 090216 

9006 FORMAT (1X,“ANY MORE FORCE STRUCTURES TO GE UPOATEOT °,7,) 000217 

___ READ (609002) NY : 640215 

"900% FORTAT(AL) ot . 099219 

__ EF IN Ve GOe tNY) GO TD 39 909229 

PRINT 963 000221 

903 FORMATILX.“ALL QONE 308 WAS ENDED™) aea222 

Sto? 360223 


ae oer — 
ce ee ie eee ee) 
‘ 
-. a 


i 


___PROSRAN_UNETCINPUT LO Pex0.T APEgs TT 

COMMON/SONE/IFIT (35) sNFIT (3S) ; 990902 

____ OTMENSTONM BRRAY(Z26),ARRAV(G6),OCHG(22),, gg gs 

ERE ee te eee 306904 
Ks 8G 


AL. PILETS (NFIT. SULPN, SL TAPE 1002 LX Ac SRAAY (2) p SLPMSILR, 0090906 

o3LFUI » SLVES. 3LOFS01026. SLEWS MY EUF) 039007 

ae CALL FILEISCLEIT e SLLEN, Sk TAPED. 2LKA, ARRAY (i) ep 2LP Mei LRe 080008 
o3LF4 VES SLBFS.2926, SLEW NYBUF) 900909 

= LF CE CK.EG.140) Ta 9 960010 

IF(ECK.€Q0.144) GO TO 9 

GRRE YC 1) 8°SRC™ 900012 

20% FORMAT(CAL9) 000013 
RAV CLD SGRRAV CLD “990018 

80; AY(i} § 

@ ARRAY (2) SBRRAY(1) SOHOLO 000016 
F«ILCK HO) GO TO 89 7? 
LFCICK.EQeiHLI GO TO is GC0028 

2112 FORGATCLX “FOLLOWING ACTIONS CAN BE EXECUTED”, /, _ 900019 
Like *RBREADOCREVIEW) A RECORD”./, ¢éae2s 

22x%-° ARADO A NEW UNIT™,7, goco2: 

~ *SR¥e*CBAOD SROeS WITHIN AN EXISTING UNIT" »/, 900622 
&1X,°O20ELETE A UNIT ANOJOR SR WITHIN THE UNIT™,/ 
$iXe°Ls ALL UNITS ON FILE“o/, 660026 
SLXe°ESEND THE PROGRAN™) s 

16 00 ti f82,28 900026 

¥ Fd] 

IF(Z.GT.22) GO TO 21 eaea2s 

ea AO 
AERZV CID 20 900030 

42 CONTINUE qg0g31 

Cc 000032 
Cc agsove OO LOOP O OUT WORK Y 3 
Cc 000038 
i PRIVT 102 5 

~~" 202 FORMATCIX, “ENTER ACTION TYPE( KX FOR LiSTtT?--") 000036 
—______ READ (60203) TOK 8? 
203 FORMAT CAL) TTY ET 
TFCLOKeEQ. LHX) FRINT 232 900039 

——— FER ES AIRY C8 0 Qe23HX) GO TO 1% as TT) 1s 
____._. EFCTCK.EQ.2MR) GO TO SOQ SC 
LFC(LCKeEGeL HA) GO TO 680 qocge2 

F¢ 2 eih6) GO T &$3 

IF (LCK.EQ.110)? GO TO 400 000044 

—___.__ _EF CICK EQetmt)? GO TO 3080 8=S ee HS 
IF (IL CK.EQGe1NE) GO TO 960 C0006 

a. PRINT 106 &? 
19% FORMAT (2X,"ACTION COOE ERROR-TRY AGAIN) = anaes 
GOTO te 0900%9 

M=9 


—— — 


ee ee ee 
C S*THIS PROTION OF PROGRAM IS TO READ (REVIEW): UNITS** agggs: 


a ee ae 
S06 PRINT S01 access 
SOL FORMAT (2X, “REAOSENTER UNIT IO(END TO EXITI<- ~) 5% 
READ (6,502) GUNTT SS 990855 
CALL OPENM( WIT, 3LI-0) 900056 
Sa2 FORMAT (A10) 030057 
f t 8 
BRRAY(2) S8UNET 000059 

a) 
CALL GET (NEIT ,ORRAY ORRAY (10) 006061 
IF (BRRAY (3) .£0.99999) GO TO $50 900962 
PRINT %23,G5RRAV(2) 000063 
3 FORMATULX, “UNIT2° x - le 
Go $05 [23,26 000065 
FC3RRAV(T) £0.90) TO $ 6 
PRINT 50%, (BRRAY(I)) 000967 
S06 FORMAT (17%,A10) TIL 
——$05 Continue #8 ©... 090069 
CALL CLOSEMCNFIT 999070 
GO fo 500 o0aga72 


WT SS521,8UNIT 72 

S51 FORMAT (2X ,°UNIT@,AL0—0°NOT ON FILE“? ¢a0073 
CALL CLOSEMILFIT? 9990 7% 

~~ PRIGTL 222, BQRAV C2) 880075 
¢ gaqa76 
c S87T4IS$ PORTION OF PROGRAM IS TO AOD A NEW UNIT®® 090077 
7 

600 PRINT 631 080079 
60% FORMAT (2 X,°AOD-ENTER NEW UNIT IDIEND TO EXIT) << =) 900080 
READ (6, 502)8UNIT 0aaas: 

CALL OPENMINFIT.3LI-0) 900082 
LFCSUNTT -EQ.3HENO) GO TO 16 gsagas 
SRRAY(2) sBUNTT 900986 

BRRA VE 3) 299999 e6008s 

SALL GET (NF IT SRRAY,GRRAY (1) D 900086 

TE (CSRRAY (3) NE. 99999) GO TO 6:29 000087 

__ 6000 FORWATILX, “ENTER TOTAL NG. OF SRC.S™,/! 000038 
~ {s@ SNe Gey Gee we Py Ute ee Re Ae : ~ €00689 

CALL OPENMCIFIT,3LI-0) 900090 

PRINT S06 00606092 

_ 506  FORMAT(2X, "ENTER SRC(O LF DONE) =") 0909092 
6502 {afer 000093 
___—s READ (6-502) BRRAY (3 +2) ___ 0008946 
IF (SRRAY (I92) NE *0°) GO TO 6560 0290095 
BRRAY(I+2) 20 900096 

CALL CLOSEMC(IFIT) ~ 000097 


a Pn le 


M-i0 


mei at titi De eel Ree ee 


; 8 
6500 CONT INUE 900099 : 
ARRAY(2) 2BRRAY (102) 990100 : 
d ARRA V(33 #99999 090102 } 
GETUIFIT 
602 ogeLes 
BERS SARRAY (2) 900264 
GO ro 686 TITEL 
NE IN 
PRINT? ,“NEXT=" aoo1a? 
616 CAL. UT (NPT ,ORRAY .260,ORRAY(1)) 900109 
MOSE FETCH (NF ’ 
LF (40.EQ. 6b68) co TO 610 TITee 
FORMAT (2 X,.“UNIT “@ Y ON Ff ead 
GO fo 612 900113 
618 PRINT 693, 8UNIT qaggris 
Go fo 612 000115 
60% PRINT 6002, BFRC 900116 
“S002 FORMAT (1X,"SRC -,410," NOT ON FILE ANO NOT AODED ~) oeg11? 
Iel-t o0118 
—— i is 
612 00 S11 [23,26 090120 
———sReaviiisd CSCS q00222 
612 CONT INUE 990222 
—~"" cal, cLoseneneiItD~—CSCOCSOOCTTTTTT......————.—”._: 0'en 2s 
een OO OU a i i ss 
16. CALL CLOSENtnFiT? 660125 
60 fo 10 990326 
‘e C 00012? 
y _C___®*THIS PORTION OF PROGRAM AODS SRCWS TO AN EXISTING UNIT? 900128 
Fi C 900229 
708 00 702 [21,22 999130 
= BERR(ID=0 000131 
BBEBRIT) 36 300132 
or FERRI BO 300133 
—_.._.-—«-BCHS (T)#9 009154 
702 CONT INUE 990135 
3 PRINT 791 900136 
? ma A IO(ENO TO EXiT)-- *) 09013? 
3 __ 2EA} (65502) BUNET 900238 
CAL. OPENMENFIT,3LI-0) 0001239 
: ® LFC3UNIT EQ. 3HEND) GO TO 16 20010 
F ———JRRAY (39299999 000262 
BRRAV(2)eBUNIT eC 88 2 
SAL. GETINFIT,GRRAYsGRRAY (i)D 000263 
LF (BRRAY (3)..NE. 99999) GO TO 750 900164 
® 79 PRINT 703,BRRAY(2) 200145 
M-11 


703 FORMAT (1X. “UNIT ~.A19."° NOT ON FILE™) 008256 


case aCUOSEMrWeny ped 

7$9 satnr caai geaika 
READ (6.*) NEND q 

00 766 £21,NENO 890152 
PRINT®,"“ENTER SRO NOe “eI,” “9-7 806252 

READ (6.502) BCHGI(T) 999253 

768 CONF IN 4 000256 
0001355 
nee 999356 
C 8aegr.57 
C  **ARRAY BERR KEEPS THOSE SRC“S TO BE ADDEDS* a001S8 
C S8ARRAY AERR KEEPS THOSE SRCO“S ALREADY EXISTING IN THIS UNIT** 00901259 
_G__ SSARRAY SBERR KEEPS THE SREWS IN BERR WHICH OG NOT EXESTS® 30991469 
C 060261 
0O 786 J21,NEN 62 

ITF ¢C3CHGI JD. EQ.0) GO TO 780 000163 
__ 00 773 L23,26 ee a 0903 6% 
TF (CS RRAY (7) -EQ.BCHGCU)) GO TO 776 096265 
770_CONT INUE 900166 
NaNO i 8908267 

BERT (NISECHG LU) 909168 

60 fQ 740 @00169 
7G MONO eee 8G E78 
~ BERD (MIPSBCHG(U) 000171 
780 CONFINUE 8G PZ 
NN26 §$a0273 
CALL NE CIFIT. 3-5-6) 0002746 

00 795 Isi9N 900175 
ARRAY(2) sGERR(T) = _ 900476 
ARRA ¥¢( 3} 299999 900177 
A GET(IFIT. ARRAY ¥ ti} a278 
ITF CARRAY (3) .NE.99999) GO TO 7125 900279 

NNSWNe 8 
BEEZRCINN I SBERRIT) 600142 

60 fo 705 g00182 

715 00 785 JK23,2%6 Go0283 
LF (ARRAY ( JK) NE. 3? 60 TO 7ag 090166 

ate ae ) 900185 

$6 
785 CONT INUE 900187 

? NE IN 

CALL CLOSEMCIFIT) 000289 


v¢i) 208190 
707 £F(4.EQ.0) GO TO 799 000191 
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lite. - - 


= eee 


=. Sgr te 
bey 


Sed ~~ Se “8 


Hace A UO Ts i 
00 7200 [zim 6002195 
_ PRINT 665, AERR(T) 000196 
605 FORMAT (12X,A1L0) 990197 
7208 CONT INUVE 990198 
709 I (NN. EQ. GO) TO 7202 999199 
706 PRINT 79006 900200 
7000 FORMAT (2X, “*FOLLOWIN GeS NO QOUNO ON TOE-FILE~,/, 9002621 
22Xe° THEREFORE WERE NOT AOOED “) 806262 
° OO 7208 [21,NN o08203 
PRINT 605,86ERR(T) goe296 
7208 CONF TINUE a00205 
7201 GALL CLOSEM(NFIT) 988206 
60 TO 79G 400287 
Us * : Sai ae Fn a SEES 
C ®*THIS PORTION OF THE PROGRAM OGELETES AN ENTIRE UNIT OR** 600209 
SSOELE Ti “$ WITHIN A UNITES 210 
000211 
___ 800 PRINT 802 eek 808 242 
801 FORMAT (1x. “DEL “ENT UNIT IOCENG TO EXIT e-- @*) 900213 
READ (6,8000) SUNIT 9002146 
CALL OPENNCNEIT, SLI -0) 00215 
8GG8 FORMAT (A103 0080216 
IF CBUNTT.@Q.3HENO?) GO TO 10 686217 
PRINT 880% 900218 
80G12 FORMAT ILXe“ENTER TOTAL NO. OF SRCoS TO BE DELETED", 8906219 
“ENTER t -) @0229 
READ (65°) NENO 800222 
Y z8UN 

BRRA ¥ (3) 299999 890223 
CALL GET (NF AY AY ( 26 
IF CJRRAY ( 33 .E0-99999) GO TO 440 600225 
TF(INENO.EQ.03 GO TO 899 gg0226 
00 8$00 121 ,NENG ag0g227 
PRINT® "ENTER SRC NO. “,I_% on” i] 8 
READ (6,562) S8CHG{ I) agg229 
8500 CONTINUE 0 gt 230 
69 FO 8s¢ 600231 
840 PRINTIAL LL GUNET Y8G232 
12322 FORMAT (LX,.A10-" NOT ON LE”? 900233 
CALL GLOSEMCNFIT) 2700234 
60 FO 800 600235 
§ F t3CNG62) 09) GO Tf & 
Ka 300237 
GO $80 J21,NEN 8 
If (3 CHG(J).EQ.-9) GO TO 8866 9802395 
00 $60 623,26 _ ee GD 
IF (3 RRAY (I) -EQ.03 GO TO 8664 000241 

M-13 
ye 


i py ee ee 


——____. TE (BRRAY (1) EG GONG (JI) GO TO 866 FF NG 
868 CONTINUE 009263 

_. KSKOL = 090244 

C GG0265 
C__ PPAERR HERE KEEPS TRACK GF THE SROWS NOT FOUND FOR THE UNIT=® 000266 
C 000267 
AERR (K) SBCHG CJ) 990268 

GO TO 480 006249 

oer De ee ee | 
660 CONTINUE 000251 
CALL REPLC INE IT BRRAY» 248 ,BRRAY(2)) 998252 
IF(K.EQ009 GO TO 616% 600253 
omens) MD), | 5 Se ee eee Se ee eM Mens | |  , 
BGG2 FORMAT (1Xe"°THE FOLLGWING SRC°S WERE NOT FCUNO FOR UNIT “, oeg2S5 
64100 1X) 900256 

00 82100 I21.K G002$7 

PRINT 605, AERR(TI) 909258 

6106 CONF INUE 000259 
8102 CALL CLOSEMI(NFIT? 800260 
GO fo 800 G00261 


30 TO 809 E I ea a es UE OS 


C 890265 
g S*THIS PORTION OF THE PROGRAM LISTS ALL UNITS PRESENTLY ON FILE®® 909266 
098267 

£030 CAL. OPENMINFIT, 3LI-0) 909266 
1108 CONT TINUE a60269 
CALL GETNINF IT, GRRAV»SRRAYV(1)) 988275 

" Ma IF ETCH CNEIT, 2LFF) 000273 
: F(¥.EQ. 1908) Qga272 
LF C3IHOLO.EQ.SRRAY(19) GO TO 1266 000273 

45 CALL CLOSEMCNFIT) 0060275 

60 fO 76 

1208 PRINT 503,8RRAY(2) 960277 
GO 1205 123,24 aga2738 

IF CJRRAY (TD.EQ.G) GO TO 1265 900279 

PRINT SQ4e SRRAV(T) 000280 

1205 Conf INuE 990281 
____ __ 00 2296 I82.28 82 
SRRA YC) 20 600283 

1266 CONf INUE 090286 
60 FO 1208 900245 

eos UN: OR NO UO 5 ae ts a _ 998266 
9000 FORMAT (LX e°ANY MORE FORCE STRUCTURES TO BE UPDATED? “.7) 900287 
_ REAP (6.90AL? NY 009288 
9001 FORMAT {A1) 390289 


mpm a cr ce a ET TE i me =A, 
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ee — ae 


aa a —- ee = sa. 0. wine h ee = a oo _ - om oy ose =- oe ee ee eee Se mrs cre ee me er ee ee ee eee oe Lot od eas ti : os J 


~ coe pat ae ee ome = - gts tt OTN aan 


* 
a 


800291 
$292 
696293 
be 


a 7 


NE JO8 HA 


rm rr rm a gg a SS Ss SSS SSS 


PRINT 901 
903 FORMAT(1xX," A 
stor 


= 


ee ee 


aa . | : ee sae ; oo me j ies - tent 2 a be aw ' mis ns : 
- a SE Se OS Pee 8 ! 
a 
= - ~*~ = . _—— 
= a 
Nr a gp a A REE AE a SR a I A EE I SIE SY TT Ey ee — se ESS A ES SR eS ERS AS a a rT al ATE 
gr el APT Pg I fa PT A Se I 
a ee eee 
ee NOD OO EEO ee 
ee ee 
_ i oc re i fn ec, ny ins mins | tha aims, th chine. = 
Saat te cece here tt eo) * ok 
cere aces : 
, 
, : ‘ ° so — a Oe ee i eee 
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PROGRAM PARENT (INPUT. OUTPUT, TAPEL 2, TAPELG. TAPEGZINPUT) 990901 


COMM ON/ONES NEI T CSS) LEIS (3S) 200002 
OT ME NS TOW PRR 8 RAT IRSE EHEC LS e 6089005 
LCERR (28) BERRI 100. RRILG)  NYBUF (2026), MYOUF (1024) 6600946 


WO, MVOUF) 


CALL FIL CEL APE 10-2. KA eo BRRAYV (13. 2. PMA ILR, ecaces 
Phere titi dat et 9099099 

IF (ICK.EQ-1 HO) 669 000010 
__IFIZCK-EQ.i44) GO TO 9 099023 

~ GRRAVCL) s"SRC® 600012 
__. 20% FGRNAT (AL8) 968023 
enn chy ecuee yt) 0090256 

ie RAY 5 

9 a eRA VEL) caRRAYUL) SCROLD 900026 
____ TF URGKsEGetHO) GOTO 999 gg nt 
TEUL CK -EGeiMt) GO TO 1% 600d018 
__ 822 FORMAT(IXs“FOLLOWING ACTIONS CAN BE EXECUTED" ./, @90019 
LiXe*REREACIREVIEW) A RECORD” ./, 900020 
21X,°ASA00 A NEW PARENT@ 17, 900921 
3iX%e°CaA0O UNIT.S WITHIN AN EXISTING PARENT@,/, 000022 
62X,°OsOELETE A PARENT ANO/OR UNI T+S WITHIN THE PARENT"5/, egga2s 
SixXe"tetIST ALL PARENTS ON FILE) /+ 9a602% 
——____$2%y°EsENG THE PROGRAMM) OF GAS 
10 90 £1 I22,.20 600026 
ay s 9027 

TF CE eGT.18) GO TO 12 800028 

}s 9 

CERZ II) 20 8009 30 

ay R803 
600032 

ABOVE 00 LOOP ZERO OUT WORK ARRAYS g90033 
980036 

£% PRINT 102 § 
182 FORMAT(1x,.°ENTER ACTION TYPEC X FOR LIST) <= “3 0000 36 
READ (65103) ICK 0390937 

103 FORMATIA1) 996038 
TFCL CK -EQeL HK) PRINT 222 300039 
(£CK .EQe1LHX} GO TO 1% 900940 
TEcLCKeEQ.2, MR) GO TO S36 G9GQ0%e2 

If (CICK .EQeiHAd GO TO 608 600062 
TFCECK + GO TO 79 &3 
TFIEGK-E0.-L40)} GO TO 869 0000%46 
F(£CK.E0 090045 

TF Cl CKeEQs1 HE) GO TO 380 900066 
PRINT 106 &?7 

10% FORMAT (1 x%,°ACTION COOE ERROR-TRY AGAIN “? 0900%&4 
& &9 


eats 5 hese Q 

C PST4IS PROTIGON OF PROGRAM IS TO REAG(REVI EM) PARENTS** 000651 
eG 2.2 Se a a aN a bac ee hs et ee ee ee 

S$QG PRINT S02 00a0S3 


S01 FORMAT (1 X,°REAQTENTER PARENT TO(ENO TO EXITI<-- *) 809956 
REA} (6.502) CFRC 


___5G2 FORMAT (420) 


CALL OPENMILFIT, SLI-0) 9603857 

—_____. EFI FRO. EQ. SHENO) GOTO 26 0 2 SS 

CRRA Y (2) BCFRC 600059 
CRRA Y{( 3) 3 

CAL. GET(LFIT CRRAY,CRRAY(1)} 600061 

TF (GRRAYV (3) .€9.99999) GO TO 550 ~_— <> 096362 

PRINT $03,CRRAY (2) 000063 

SG3 FORMAT (1X. “PARENTS ALG SX _ MUNI T™) 090064 

00 $65 [23,20 800065 

TF (5 RRAY (I) .EQ.0) GO TO SOS 66 

PRINT SG6. (CRRAYV(T)?) 690067 

506 FORMAT(L7X,A19) a 000068 

Sa5 SOnfr INUE 900069 

CALL CLOSEMC(LFIT) 000079 

60 fo $008 800072 

550 PRIQT $51 -CFRC 900072 

$$1i FORMAT (1X » “PARENT A105 “NOT ON FILE) 000073 

CALL CLOSEMCLFITD 000076 

GO fo $00 ©} CCC 900075 

46 CAL, CLOSEM (LFIT) 999076 

60 TO 36 aoeere 

| 8 

C *6T4IS PORTION OF PROGRAM [S TO A0O A NEW PARENTS® 600079 

@909869 

600 PRIVT 601 0000681 

FORMAT (1 XK, “ADD-ENT yw Pp {EN joo = 900082 

ZEA (6.592) CFRC 000983 

CALL GPENN(LFT #0) & 

TFCSFRC-EQ.3HENG) GO TO 16 600085 

CRRA V( 2) sCFRC @086 

CRRA Y(3) #99999 000087 

CALL GET(LFIT, CRRAY.CRRAY (11) 000988 

IF (S RRAY (3). NE. 99999) GO TO 610 0000869 

__ $0086 FORMAT ILE» TENTER NTER TOTAL NO. OF UNZF,S™,/) = = GG 

300091 

pate OPE NM CNF IT, 3LI-°0) 960092 

PRINT S06 006993 

_586 FORMATILX,"ENTER UNITCQ IF CONE) -*) Q98094% 

~ 6502 Tali 800095 

READ (6.502) CRRAY(T®2) ID 96 


TFCSRRAY (I ¢2) .NE."O") GO TO 6590 000097 


1 te ge Made 


=~ bot Shee 


j 
5 } 
) 


CRRAV(Teeseg 
CAL. CLOSEN(NFIT? : 00aa99 

GO TO 616 __ CHOI 

¢ 66017¢@2 
¢ 600102 
6500 NEs9 600283 
BRRA VY (2) sCRRAVUTO2) 0860104 
BRRA ¥ (3) 399999 000105 

ALL GET (NFIT ,GRRAY via) 6 

IF (3RRAY (3) .NE.99999) GO TO 682 0001407 

FRE BBRRAYV(2) | 08 
60 TO 60% 660299 

602 COnf INUE 606223 
PRICT® ,“NEXT<" 6002132 

616 CALL eesuccere eS palit l 0001123 
MOskF FIT & 
TLC PTTL GO = 610 006125 
6983 FORMAT(I1L xX, “PARENT “,A1@0,* ALREADY OM FILE™) 0690216 
60 TO 612 000127 

619 PRINT 603. CRRAY (2) 0001218 
G0 TO 612 090119 

60% PRINT 6802, CFRC 998129 
6062 ORMAT (1X, “UN “,A1G.°NGOT ON FILE ANG NOT AOGED “) 609222 
Islet 680222 

. ro 602 660123 

632 09 313 ILKs3.20 9090226 
CRRA VC IL KD 29 600125 

ba! 6 

CALL CLOSEMELFIT? 600127 

60 FO 606 ye Se he) Te ee AS ee 

G 809229 
¢ S*THIS PORTIGN OF PR mA UNET"S AW ExIST NT se $00230 
Cc 090231 

706 7 2 

BERZV (T3920 000133 

_ SBERRIZI20 CE BH 
CERVCTIZO 0801435 
_.____—dCENG (2980 9002436 

~~ 702 CONT INUE ° 9090237 
ao. PRINT 761 ia seated usin pated EI et ee a ee 
762% FORMAT (LX »°CHANGE°ENTER PARENT I0°(ENO TO EXITI «eo *) 900239 
READ (6.502) CFRC 960266 

CAL. GPENMC(LFIT, 3LI-0) 0901242 
___ ss TF USFRCEQ. SEND?) GO TO 16 _._. _.__. .. 998142 
CRRA Y(3) #99999 900143 

—___ __ GRRAY(2)8CFRO BAL 
CAL. GET (LFIT+GRRAY.C PRAY (1) 9 200285 
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—_____IF (2 RRAY (3) 0NE. 99999) GO TO 759 0 tt 


799 PRINT 703-CRRAY(2) 


703 FORMAT (LX “PARENT “,AL0,7 NOT ON FILE™ 99016 


CALL CLOSENC(LFIT? 68643169 


6O fO 768 §99259 
750 PRINT 6006 609251 


2€43(6,%) LEND $2 

00 766 Ist,LENO eee1ss 
PRINT? .°EN J La ba = =." & 

READ (6.502) COHG(T?) 8390255 

i 

Nz@ 666157 

Msg 099258 

C 969159 
FeARRAY KEEPS THOSE UNIT@S TO BE ADO 

C S®ARRAY CERR KEEPS THOSE UNIT™S ALREAOY EXISTING IN THIS PARENTS 600261 
G SPARRAY OBERR KEEPS THE UNITWS IN BERR WHICH OO NOT EXISTS? 999362 — 
CG 600163 
00 780 J#1,LEND 600164 

TF (SG CHG( J). EQ.93 GO TO 780 $00165 

00 77 33 66 

TF CS RRAV CI) EQ.CONG(JI) GO TO 776 000167 

77 ONT INU 8 
Wane t 060169 

BERZ (NI SCCHG(Y) 639370 

GO FO 7380 090271 

776 “uted 860172 
CERZ (MP SCCNG( YD 900273 

786 CONTINUE $9001 7% 
NN2g 000275 

_ CALL OPENMCNFIT, 3LI~0) 000176 

00 765 [2teNn 000277 
__s BRRAV(2)2GERRIT) TB 
SRRAV( 3) #99999 900179 

CAL. GET (NF IT, GRRAY, BRR AV (13) 009280 

TF CZRRAY C3). NE. 99999) GO TO 715 9062 61 
NNSNNOL 880262 
BEEZRING) SBERRCT) 990283 

GO fo 705 000184 

715 00 785 jKs3,29 0601865 
TFCSRRAV(JKD.NE.8) GOTO 7aS BE 

CRRAY ( JK) 26 ERR(T) 000197 

60 fO 705. __ 090288 

783 CONS INUE 600289 
___ 705 GONFINVE iT 
CALL CLOSEMINFIET) 000292 

CALL REPLCILFIT CRRAV.200,CRRAY{1)? 9903292 

707 ITF (4.£0.8) GO TO 709 000193 
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708 FORMAT (1X o°FOLLOWING UNIT.S WERE ALREADY PRESENT IN“, 000195 

” PARENT “»Ai9) 900196 

BO 7100 [21,4 | 0001297 

PRINT 685,CERR(T) a 

ggg Fab (12h. th i 990199 

7108 CONTINUE 090200 

709 IF (en.€0.0) GO TO 72012 000202 

766 PRINT 70908 900292 

~ POQ8 FQRMAT (LX, °*FOLLOWING UNIT .S NOY FOUNO ON UNIT-FILE“0/> 000203 

22X% 0° THEREF we T AQOEO 7) & 

00 7200 I=s1,NN 006295 

PRINT 605,8GERR(I) 000206 

~ F200 CONT INUE 900207 

7? A MCLE 8 

60 fo 708 999209 

ke a ee ee ee SE ee ene | fee 

GC *STNITS PORTION OF THE PROGRAM OELETES AN ENTIRE PARENT OR** aoozi: 

C **OELZTES UNIT"WS WITNMIN A PARENTS® 090222 

C ~ 000223 

__ 800 PRINT 601 200226 

~ 02 FORMAT (1%, “GELETE-ENTER PARENT [0 (ENO TO EXITI— =) 000225 

ZEAN(G6,8000) CFRG 82 

CALL OPENM(LFIT.3LI-08 900217 

___ 8000 FORMAT (A10)__ __ 999238 

LF(SERG.EQ.3HENO) GO TO 26 066229 

_ PRINT 664% 

8061 FORMATILX."ENTER TOTAL NOs OF UNIT eS 10 SE OELETEDE™, 000221 
3“ENTE To ETE TH T PARENT *) 

READ (6.°) LENO dgg223 

CRRAY (2 )2GFRE a0022% 

CRRA Y (3) 299999 000225 

CALL GETILFIT. CRRAY, CRRAY (1 _ 0226 

IF (CSRRAY (3) .E9.99999) GO to aaa 900227 

TF(L ENO. EQ. 0} GO TO 898 000225 

0 8500 I21,LENO 093229 

PRINT? “ENTER UNIT NO. *,f,% o-* : ____ 46 02 30 

REA) (6,502) COCHG(T) g00231 

8$00 CONT INUE _ 080232 

0 f6 464 ~ 900233 

840 PRINT1121 -CRRAYV(2) 9002 34 

4211 FORGATIZX,AL0,* NOT ON FILE) 000235 

CALL CLOSEM(LFIT) 09236 

— 60 FO 800 809237 

850 [F(SCHGi1) 69.0) GO TO 890 _ 900238 

K26 900239 

00 $80 J#1,LENO 0926) 

IF (SCHG(U).EQ.98) GO TO 486 000261 
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€2).€Q.0) GO TO 860 Gag2e3 


IF (SRRAV (I) E0.CCHGIY9? GO TO 866 990266 
860 CONT INUE 000245 
Keke 990266 
C 000247 
GC PSCERQ HERE KEEPS TRACK OF THE UNITS NOT FCUND FOR THE PARENT®® 099268 
“co 900249 
__, CERI CKISCOHG CY) 900 250 

GO FO 68¢ 900251 
866 CRRAY(I) 20 gooz2se 
886 CONT INUE s00253 
CALL REPLC(LFIT »CRRAY 200» CRRAY (1)? 990256 
IF(<.E000) GO TO 8a¢ 000255 
___..... PRENT_@602,CFRO SE 
OG02 FORNAT(1X,“THE FOLLOWING UNIT*S WERE NOT FOUND FOR PARENT ~. 020257 
GAL 0. 2X) 58 
00 8100 l=i,k 000259 
____PRENT 6O5,CERRCZD — : _____aeazee 
61006 Conf INvE 000261 
= CAL. CLOSEMI(LEZT) _600262 
G0.f0°M0 5 a re ¢00263 
990 CAL, GTEILFIT,CRRAYI1)) 00026% 
CALL CLOSEN(LFIT) 000265 
$0 Fo 800 900266 
C = 000267 
GC  **TNIS PORTION OF THE PROGRAM LISTS AU, PARENTS PRESENTLY ON FILE** 909268 
C 000269 
A NM CLE . ? 

£100 CONS INUE aog2rt 

A NCLEIT sCRRAY, CRRAY(1) ee2r72 
MaLTETCHILFIT s2UF P) gag2r3 

Fee ) qag276 

TF (HOLD. EQeCRRAY(2)) Go TO 1200 ag0275 

9 TO 

15 CALL CLOSEM(LFiT) a0e277 
Go 0 q27s 

1200 PRINT 503.CRRAYI2) 000279 
00 £295 [23,20 90¢28¢ 
—————]FUSRRAV(T) £006) GO TO 1235 
PRINT SQ, CRRAY(ID 999282 

1205 CONTINUE 000283 
00 £206 122,20 900264 
CRAAV(T) 20 a0028s 

1206 CONTINUE _ 000286 
GO fo 1100 000287 


$06 PRIVT 9009 908268 
9900 FORMAT (1X, "ANY MORE PARENT STRUCTURES TO UPOATED? “./) 900289 
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ca enmeeenticanr indian Inne 


___.___REA2 (6598812) wv : 
960% FORMAT (Ai) 


008291 
Sim EF (NY +G26 HY) 60 TO 29 aq9292 
PRINT 90 990293 

901 FORMAT (1 Xe ALL OONE JO8 HAS ENDED ~) 0892% 
Sos 690295 
ENO 990296 
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3 133 
COMMONSGNESTELT CRED p SEL TC RG) pKETT OC SEY GLETT( SED a2022 2 
DIMENSTAM 1FOR (22) gn YID (26) LSPSMHE) pAVIAVIG7) pATOT (26) G35127 
DIMENSION alXTRA(LOD KEV (CL? 1) p FOS (Bleed 79G13¢ 
DYMENSTOIN [HE uO (6), TFO@(S) » PPENT (Od »STATS (36029) pLEFF (GO) ICICED, JICL4E 


' 


d 


LISSOT (5) CUM nV (50) 


SATA STATS/33°% Ces __ 33626) 
MATa THEN SC toe, Me My MK My SHUN, My MENT TS, A219) 3230175 
BATA TEDOS™ CL Wey ey Ny eho CHEL 5 Oa WSN y oe hREMing My M24 INE MS JivLdse 
MSTe TPOMTsS*(LHo,*,” eK eM eo Ee MSN GFE LLIN 20429¢ 
AAr, fTeces"*(tk+,",* ey Kp eX, CHEF ye *24F BFW. JI"/ 3ab20u 
FATA ICIS (Lrg e My” He Keech ans *y"GHST Clee eMail Ss sC2tec 
BET TSTOTS MCR oe ee MX yp he 24S Hy Me MEN TORB eM, F523) %/ 310223 
FALL FILLETS CLEIT, SLLE™ pSLIaFEY 2h KK gp AQOAY -2LPY, IL 2, 33623° 
eZLE4T.3LYES) ss MR He 
SALL FILETSCLFEI Ts TULENe SLTASER, AL Mag FOR, ZL PM ALLO, 330255 
e TLE'UTOILVES) 136262 


GALL FTLETSIJFIT » TLLFNy SL TAPE ocL Km pnUlOp cl eilty 33 
o3LE ST ILVTS as Ohh Sas, a 326282 
Salt CTLETS(KETT, LLEN,>L Tapes Ty LOM ILR, 316263 
e3ULF AT, PL YES) _ 026392 
CELL SOENWS(Z,KEV et? ie) 750317 
SéLL 2EANMS(2,FPS 5153554) 13532! 


Salt CLOSMS(T) wG33e 

1 PRINT 129 JJOF6E 

48O SOP*ATILE,“LOENTIFY TYPE FOOL E on™) sucyzse 
CEL9029,9°32) TYBES 136369 
APPAV(ZIBs ASS JBL a i 6°15 
TE(TYPE EN, IHS) .CPAV(B) sLAsJIB2 3 2638° 
I©(TYSELER, tH3.CO.TYPELFC.L ; ui9 

OOTUTS MTHYAL TCeeT2ZY s5ulN * 358690 

4660 TO L JICeL2 

(3 aHOLN2a0P 4413) 32562 

2 SPRAY (MIZL44LC oo 33563C¢ 

90 15 22,23 390 Gu} 

t0 AFIF(S)= © ~ aw Jules. 
—____3€_12_122 42% ee bis 5.> 
t11 aUtTV(TD = 3 Y3Cu?: 

NC 22 2% ,04 156485 

12 48% (T) 2 3 “33 50695 

NC 2? [24,33 736867 

: “G3 srosvivis, © bd sara ———— 1) $e by Pel 5 Oy 
AC tam Fat, 25 JogF2!: 

~~ te af CT) = 3 i eens) (oo 
£0 TO 25 pie) os 

: Lit SCRWET(LY, “FC LLOWING (CTTONS cat) se TtEcures*,7, To 355552 
oltre me B29M NEA ENOCES Sy o 3G FEC 

ote CS HA Oe mw UNSTO® v7 piel a ae 
eLre*NERAELETE a FACT (CP APENT UNIT) “o/e 32085: 


ie 
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* ae. MEO Ame eee 


fe oh X_ MOBIESN(IFYTEW) P.RENTS™, / 339592 
oi¥,"LSLPST ALL FARPE*TA" Ls, : JIcGEde 
we ME PSTN ET ALT ZE FOSCS FILE 4 e A EL 
ol X, MESENA THE PROGR”? Ugce!’t 

OOYNT « JIGEIS 

120 FARMAT(2Y, "ENTER ACTFICN TYPEC x FOR LISTI = *) 196642 
rruteN g3C65C 
QEANCL9~.2235) IKK 33G666 

226 foowstiayy ETE 
IPCIKKED L4H) PRINT wie 136649 

FATKK Sh tex) GA TO 33 19Cé9¢ 

TF CLK LES. LHS GCTO225 2397903 

FEC TKK EP. LED) GC TC 532 _.. 190723 
VECTKK OC ET.L ERY GC T9 S448 996720 
LEeChKKe EQ. LHL? GO FS 2353 0239735 
ITCIKHKLES ARE) SC PF 3355 136743 
F(TKK.,=9.2h4) GO TO 242 39075) 

LEC PRM ES LT IGCTI8L1) 339763 
POTNTS, “ASTTIN CONE FRING * 119077° 


2o2t ENQveTeats) 330790 
225 TCO4SGs¢ 230209 
OCLTNTE MENTE OnRENT Fo504) TF JON)" 130810 
GEAN2TL eA PIAV ELD 33382°% 
LF CAFOAVI1) ESe ME" IGOTSS 303432 
PPINTS ENrs2 UNTT 29." © 000449 
FELOZ 912 2R-V (2) Jic4s- . 
a Fav (2329933956 270066) 
SéLL NPENMILFIT, SL 22S) 702472 
SELL GET ILFET paP PAV, aO Pavitt) ) Ocsdc 
TE CAPTAV E38) EG e $959S0 PRINT 211 paFQAV(2) pc PRG (1? os 155893 
TE (CAP ORV (CR) £FE6.599999.360TN2ZI5 Pw Fe : ~~ JGg9ac 
40T97992 330914C 
222 FRIMATI~ *,UNTT Lee “suite” MAS NOV decN fCENTL°TEO",7, ~~ 3230927 
S™ 5S TELSMGING TO PL2ENT “atc,” TRY mil Vo*) 331593: 
25¢ 3 j Mae dD : cle pis Bok -7 tad 
36S FLANGE, 2°91) «=ATATGL) 31695° 
TECATOV (62h) ou In ge aS 
AFSQ(teeaLLI(LyeaSWMet(ips"gey” 33097) 
Sox TOLL APEN*(LFET,3Li-0) © TOO TO SR CGR SE 
APVIV(SPS*ENP CT” 263393 
oo ROP C GLE a. a ee ee 
CiLL APere(TETT. IL <0) 27294: 
aO9202) = atTCTit) er, Oe Ce 
SFOCCI) & 95569. J5L536 
a SECC GETUtELY ator earoellis-.- ee Void) 
LE (AF OF(7I6ENISSISe) «630 TT ECC PILoe 
mL CREME F elt om sviue. 
Mo24 


. - 
oe ey eee Ke a a ee RE SI —_ 2 
. e 4 is + shes . oF 7) . 7 


RO ct Ale tt and Maher. 


Prmeersiegee rane 7 Sarat <M a 


ae or Se 


p Lowen ERY J2ie2)} UIL97°% 
FE (CRENQ( 39,2827) 50 9 3399 ; 73921683 
4UTIN(2) = aFerR¢y?) Jyices 
TE CMFCRI SILENT) 60 9 3934 334202 
AuUIS(7) 2 sFCR CY) GaLti3 
- (A ( ome. > 9¢ 

AUTD(2) s sFeRtyZ) 392136 
tre tAroo()).60.3) 4 380 79 3399 SL Ot 
AUTNC2) 2 IFCRCY) 7321256 
TECAIENO( J). held) FO T3595 oa «dL LE? 
SUIMNC2) = IFAW?) $3117¢ 
: ‘. diila. 
surg) zs sFoecy) 301137 
TF CAFAO (CS) 220.7) 50 TO 339¢ “gS IL2s¢ 
AUTT(2) = aFCRIQ) as222c 
TF CAF N9 (39.5025) 6490 fT 3395 ~~ = 62225 
autoce) = «sFeRr¢y) J3222C 
~~ “SULSCT) 2 5995996 : aa fo) ee ee ae eee 
CALL GET CIFTIT ALTC,AUTS (19) 311253 
TFRCAUTOC?Y .FG. $2996.) 49 TO Fite FS 2262 
APR: Y¥(6)21 YILZ7C 
BLL eae ere 732282 
50 7309 « 2 7, a42129° 
TEUSUTOIRT CtO ToT oer TO 20)0 Sy sys os re 
s$2C(2) 2 auvroeK) G21315 
SSef(3% = 35939. 1¥23 
CELL SET CKETT ASR aS2c(t)) aN1336 
TE CASTE F290 e9 55590) on TD CCID ee pp a ee eG 
Qe 2eef La %465,27 3747639 
FL(ASIC(LY.=E9.7) «2 30 TO 2776 
TC zs 452th) + 142 331237: 
—  aROAViZn) 2 B2OLVITO +aAS*S(Let))00!0U0!™!™F™F™~C~C~~CCOOCCCCCTT..OOCOOTCOTTTT.C.C 8 et 
APVAV (SP SLAPAV (GD SASRC (LOL) SFPS(T 910,44) §517¢: 
2069) SCNT TNUS ee J abage 
3903 CONT tMye , 0914242 

call CLOSEM(K ) it 
ax<F7oVILIsaTer(s) 234632 
AGPAY (23 24TH (2) ~ 9Lee2 
6cTs3o993 2321652 
258 TCNG2t Ve a i at ae ee 
CALL VPENMO(LFIT,2L 029-22) P3Le72 
209 Cell eTM(LE LT ee Saree mY ft eiwde 
Ma TOCTON(LETT, 2LE PI 12143; 
TE(MC ER. LIN 2GaTCS]Le PS on pe ee a yee a A 
30S9 POLIT 8365, aRRAYC(2) 33151< 
35ES FCIMET(™ ENTER 3% ANC UONTT TYPS OF “iar dvys1e2c 
FAN* C%ecIh eur hp Sk, Be 


ee 
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IF (UT oi T. seeG es UT oat ews I GOTICASS py B27 
-F ole a= wediwmNDeC helo sdce) 20T93Loa 23LFe) 
ORINTF STN VAL IG FEL EFFOmTIY .Galn VSLE7 = 
Batt 39 232543 
AB77 POTNTS, “TNs SY JNTENSITY LEVEL w~-ENTOY MUST 3© 3 TO 5” VELEIS 
BCTAIIC3S JdLETS 
PRINTS, MTNYL 

ZCFNZES9 3262° 
3279 90 329% [T3133 19163° 
TECAIPFAV ITIL OL II LE 2.3 SCTOSLSC §31é€6C 
APRAV (To Td SAIPSV(T Lert Fcvs trie 931652 
3455 CONTINUE GIJ1Leeé3 
S°RAVI7ISCTL | 3121679 
VQunVE3VsCY 951683 
APOLVED) S72L JI1Eget 
APIAY (LI)sut 334781 
TE (7 HG. EN.L)GOTO279% jQ1L72L5 
Cab PUTCLETT SOUL Ve S5 ses FP IAVILD? 321725 
4m TFET IMCLETT IL IR) 312736 
TEM, ESeubad) GO TO 59) 201746 
ob Saet GOTISS? 2 oe = 192756 
226 Cath PELE CLE TT men Fro eA PuVEs?? 331762 
TECTKK OES. ME" IGCTC253 yeL770 
240 Cwtlh CLOSFWILELT) 75i739 
297 AG WIt Lystie 38 33179¢ 
~ 303% ATRAVIT J) 32). 331892 
= LE ULCHG ES e Le AND e TKK eee 8S IGITIZIS «dd tats 
_ LE UPCHGe ER bea MSe Ikke STe TI GITIS LL ~ JJraec 
3999 SONTT HE 3214832 
#397 SONTE US 74164) 
__ GALL CLISFY (VET) 028) 
S$9(9 Satu CLuaIst@cLFtrT 33166¢ 
SoLL TLOSEMILF ST) | 331877 
LECAT OT (2) NES TTY FRINT SH, MNEXTO™ me bs f-y. 
TFCATCT (29.NF.%3"%) 30 TT 389 90189: 
3362 Cet, td Wi BGe 
0 TT" hee ae __Jsi32. 

31) PCENTS, "05 YIU WON? fo sMONGe tee UNTT EFF, CIL,O@ FYSE Fyo 32362 
S Gt UNITS?” reek 32193: 
PEADC LI, 2ILITNG ~ 5 9LSe. 
TEC THY TI. VY" IGCTCI294 321$5- 
TPCIMX CTO. MNMPSOTCAL o 2eLtec* 
POT'IT®,“CESEONSE VUST 2£ Y GON * x. ee PULSES 
60Toa1)~ da eee 
_ ate CALL OPENNCLEL Fe Sh t-GokP = 31193°¢ 
Cell OFE*MOGFIT IL-8) aaa eo 0r = 
Cé£LL OPT'¥(KEIF, wr -C) 22282. 


SL? COLL GETN (LETT ARAN gy eR omV EL JofUce 


-————_—— —— ni et 


er ee augue 8 OS ee ee ee es oe A ere ee i — ee 
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ee ar ee 


WalFZTO4(LE IT, 2UFe) yyets— 


LF CMC ECL T32NGITCLY? : 3J2C4ai 
Sa AUT UE eS 2 a a DE 
BULTEZY AFI 12) 932C6d 
JUTNCI2S99S3¢. 992079 
Celt Se?(JFITsAUlLO,gauUljJ(ib) ©§©@©©.©6)~6)6©.) «SOO 
LE CGUIO (TD) 0 FF eFS9S5. I OPIN 7IN2 REREAD §3299C¢ 
TECAUTO M7 280995S9.)59TC755. aes WS I eee Oe tae eg 


7IC2 EOMMATELG,*UNTT [O% mite” NOY ON UNIT FILE. THERES IPE NO WPA LO/OTII2Z1210 
Lye mes ote "STILE Ye WSCCTATeyY afte TRIS UNIT.) «S223 

NAC7SC Fatt. 32 022135 

en SOMA ITI TS aoe 


__730_ GeNTreye 332153 
S11 202416) 87, ~~ 7d2166 . 
ot? IC710 Kst, 2% 912273 

Te(uutnimi.s0ieCtirey ee a ee gee 
ASQC(2)24UTS(«) 09249. 
ESRI agea Ie TI227C 
CALL G2T(VETT, AS@C 2595129) daca 


PE CISIS (CF) CEC SESSF PROT HT Sci pmULOCK) ARRAY C)gur2nViid £OG2225. 


TF (AS26031. 25.9E5S3.9 SOFC713 : Go2z20 - 
NO7%* L2teese2 ede CO Se gg feo By ee es ef, “" $9222: 
TF EISPCSC (Ld TV e TIGHT IFS ac22es ; 
LC#aSRC(Liets soeod. 
SROAV ETD) s aQPOAVIIId en SW (het) 332272 - 
a SP9AV(CERZERILV (HV OASAL LOL) PEF SUL DeLigaaravicd) SL BD 
729 CONTINUE = 2 g32290 - 
729 SCNT T ye Py ge ne ee Gy a ee ee ee, eee 
§07450 [24,32 W2232C 
IFC iPOav( Tet dv LEsgi onto: “ tie 
PIP (TOL 1 sh FVay (TOL TdF .R2naV (ad /sLdde JI2ife 
76Q SOVTTy= OF GSTSSE 
TES KIFWV EIT S"OTSTAOT™ 392356 
Call REPL SULFIP, $9984, 97°, AeREVIL))O~S ae oP SRS 
Poh dare a4 12237: 
93 CALL CLIST AIF? weak 
Call CLASTMILFIT) 2322792 
SSLC CLIS=™ (KE EF) To FH 26D 
SCT 19 332612 
S00 POTENT FTL AM nV (sd,asavVitl,sreavi-) 33262; 
ESL FMOMATILY, BAM eA digi te MEL APESTDY IN FLLE) 29203; 
ret we eee > hee 
Am PRINT 64¢ 352453 
ets SF3MalT (ly, “REL ITta= ue ¥rYie= “POO GUS 
PFANCIN,25L9 ASCEME 22247: 
Fall APEVMCLEIT, 3Cl-C) im ee eee pees 2 
TE CASTENE LEGS IMINGAD GO TC 312 132495 
Psy 4 mVg atin Tid i di 


eee ee - 


: 
: 


MaTFETO+(LE TT sete) 23251. 
TPM. E5.450C7) 858A TO S12 332€2° 
TF (CARPAV (7) Nie dn) 60 TO 52: ieeo. > 
TE(.OCAv (2) NE eASC SNE) 60 Te 412 392846, 
ublbh SETe (Ley resaPPayiy)) 02255" 
50 TH SLé 31256, 
42 ORTAT#, MALL OCNE wT THIS JEL ETE” 31257* 
622 Seth CLOSIMILELT) 332637; 
40 TA 9 33259¢ 
62253 PPINT B24, ATCT CL) 92260: 


FOQOVETIT¥, “CHE [9% ALI. NCT POZVISUSLY IDENT IFE TIN, 2x4 91X. 352610 
£°yY9U KILL 48VE TO UOSaATE THz FSACE FILE LF YCU WANT “°M INCLUCED®, 112é2. 


2/e" I* Tre YATTLE™? ___932€3 
4c 19 5377 12666 
7999 POTNT 7391, SFCQZ(Id, «TOT (1) 23265¢ 
ZEAL FCVMAT(LY, “UNIT TO% aioe” daS NOT FEEN FPEVICUSLY ITOEMTTFLEN™./, TI2EE. 


£¥, AS 3ETNG ENICLUBED FN FISUF TD Mendes 


332676 


PLEX, “THE FNQSS [§ FFING CREATED SUT THIS UAIT &AS LEFT OUT") 35266. 

40 TO 212° 392293 

Slot PRINT 3972 , AULTO(K), aOR), ATOT(L) 33273° 
BO31 ECOMATILY, S25 “sALlo Lie "NOT ON TOE FILE“ e/y =e _ 32274. 
LU ke THEDTEGQE THE WOM TeMe/ITY,3 ESSOCTATEO wIT THTS SRC*,/, 332720 
24x, TLL VAP Sf TMSLUDED IN UNTTIID “euldei%e *F2™ [9 “*edis? 53273: 

3C 1) 33905 Joerad 

3003 SOLNTS,"ENT=e SCOCs fo TC 3% LISTED - * 93275: 
ZEAT(LT, AL? ASCENE 33276: 

CELL SOEMM(LEIT, ILIOU 3277: 

SDORY (2) 2aScFe yae7ac 
POINT 3722, TYOC 332739: 

3025 SOOMAT(LY, *TYO® FRI,23 “sRts//) Joeac- 
ANaQ _ 2812 

CALL OFSNN(LFIT) ae ea 71282: 

9f28 CONTINUE 13283: 
Call CEPMILELTSARPAY, ARQ V (19) Jl]2de: 
METFETOWILE IT, 2LEF) yo2e9ec 


efFBel lat i Biss 
saa AA, 43 TQ 332° 32287: 
TECASCEME Nee PPA V(t) 7) 0 Sye? ~~ J32ad? 
TE CAME. 197,47 U299 GO TO 3596 37289¢ 
PPINT 997 ,aPFaviit ~ 93296: 
3026 TOPMET(LY "ENOTES TIZ “Meat 372922 
320% POTRT 737 >7 , aRRaY(?) Js29e. 
3627 FOPMATESY UNIT TOt “satie*? LaST CLt “MeetSe"3 SECTOR? *s  39293e 
LE 30 i723%, AON / 2 OKO ID ~ Ary) —— ~ 31296: 
ale] 3379 T2ti.3J 322958: 


rons tet? 32297: 


te PP a ~~ Sr eT NR — ay - = 
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322% FMIMAT (ZU, PR Se Fined) 32299C 
4G 23 SANTIS 323632 
A4z.2>av(t} Asus: 
QOEMNT SUBST, APTA TZ) pavWay C3) 33302: 
aC TT) 3221 733633 
340 CONTINGe — ee ee ee ee le Oe el eo ee tT CL eS 
SSLL CLOSEMILFIT) JAILS < 
PITNTe, "OO (hU AANT TO LIST ANOTHE? FOeCE? SaaS! TP 1. ey 
PoAT(fL3,509972) TuK §S337¢ 
FeCTKeeheithY) GO TS 35: ~“goscs: 
Q2€) 22T1T 3154 333¢97 

JGSL FRIMAT(LY,* GCTIC® SOMaLETE “4/7, i 
tiv“ 90 YOU Wath TO END Tat OVOGREM™) 03311; 
PTAVC17, 9992) Poy . Jd7212°- 
THT VeTMeL*Y} GO TO $3525 $1323: 
= en TO t me BK Se 
25% Galt CPENM(LFEIT, ILI <0) 90315: 
POTTY : BISLS= 
POAT 3°25,TYOE J9216° 
“Fes FORMAT OCS) " a 9032645 
SOTNT 3g % 333177? 
AR OCCER SCT SER SA, Ss Pe a 3 "3 9328¢ 
See FE UNNCLEIT) 3335196 
252 Gel L SETMILETT pO Ody gn Pm v ltd) ~ $9329; 
MSTFETSW(LEIT »2LF eo) 133215 
LTFIMeEN. L703} GO Tt 6U5 ~~ 92227 
TEAL NE CRVIV(7)) GO T? 252 _35323° 
LE(AB EDLC IFA (LID 50 TA 293 A Z32%G 
To (44.89. °%.166TS7 72 32225: 

2P5 LSTCMUNI TC ET. 7 SOTA I2 sce 
Osacers3ea, JUI27: 
TO(OTSEE SE LCL PARSEPSPREPP/Plare*LJoe  »”.©™“™©“©“@“@“@™§Fh Ry... SS 93235 
POLVTWWs 32329¢ 
OOLT SIL —~jor34: 
DPPINT ICS ‘ 33331: 
OC TNT FEL re po tee FE eee ts ee Nt gen Tete ye eee ie eye 
TOL FCOMET (20x, 248F ECF LAT) ) : 133337 
‘OStuTL52,,.4 233542 
POTNTI24% 2137S? 
ma OE aE ae I Lok OT YD Vc. 32 - 
LOZ FCOMAT (Oh, ox MIM TENUT ES dy OD 22337: 
Liszt 44S50. 
£27 TECSFLSGe TDL IL LEH 23276: 
~~ “Ca2Li+e~—~”~—“‘“‘—S ey PTT" 
NPQNT Ss? J IT41° 
9C 322 TuUxeti.t2 Fe: 
TOCSTETS (1 TRV eC EDe Te ISITC 347 32343: 
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LECTINS STA SIT AFAR EPP EMUMS (I(T UNOS) $22) 2OF4E5 

LTO JEL Fe TT ek emNOSMEWMTS CED CI POTNT SCL : J1366+ 

TE (FLAG ED ed eAND NPQNTS SD eCI PRINT 732 23675 

TH CHE LAG se toed ANG NPONTS CEQ, SC) PRINT IIL Q 22482 
eorvy THEANA,STATS (2, TU%) 142655 
NOINT SANDONTS of 333605 
317 CANTT UES a en re ae ee ae eee SO en eee SEES fae __ 33352: 
aii ae had arora 335522 
FIQ CGOMMAT (AMA LALLA FED? 153¢32 
eT 333540 
[TSO (2) eM I (5) 33355: 

TEC JF Late ee PORINT TEES, SLURS : dustec 

AO 126 TUNsLLb2 _ se bee 2 PISETS 
PE CSTATS (Le TURD S59. 5150T C125 993583 

4 A A EE <2in FASS SC 
TECTUMGTe ZITEPE(ZPENUMS CC TUN SD F221  $73hu2 
octur Tree, cy. tS(eyf UK) 333613 

125 CCurtcige 323024 
= PRINT 731 ne jtze3¢ 
30 4276 TUNSLL,L2 = J33E4) 

ts ZTFCSTATS (ho LUND. E06 UPGOT me 293656 
LTETIZ) SNUVI(TUNS22) : ~ Josée? 
TFCLTUMSST SILT CR (22 2° t (LUNos ) 4229 13367; 
PEINT TST, STATS (2, 2UN) 1323633 

L264 TONTT NYS J53e99 
SSteT 322 ~ 93374C 

IA 427 TyNst?,l2 333722: 
FECSTOTS (6, SUNT eae LP OreL?. = 332722 
TSIST (AY SNUMVE CITUNS2 29 393737 

Te Crume ST. T SECT 2zseeyuvs € (TUN) 422) Disb, 
PRINT LSETT»STATS (uy TUND 333757 

~ 427 GONTTNBE : ~ jasrves 
=~ 2INT_ 3" 29377: 
OOTNT ISL ~ SUI73¢ 
TFSI (2p eMNuMazC 19279) 

FOC ELAS e Neo LIPRIN 1*4- evdUe 

OO 19° TUreLtsb2 13261) 
SFUSTATS(1,fUh).60..9GSTC6CL9)  ©°} © OOOO TT TG3S022 
TEND 2PS 4S CTUNS 22) 133353; 

~~ CECTUNC ST. SIT EPO C2 VENIEMSA(UTHN] SI) S22)..———CO™” oo; ee & kz-1 re 
PENT TZN? 133883 
wer cowie: oe ee See ee ke Ss eee 
PCT IT BZIe A ya37% 
PQTNT IN: eee 3 3aat 
WNT SL 323394 
“N 427 fet, a 7 ~~" "363592 
TOCSFL AGT VeLeANDe LIL! Koel. SGSTNE2S 353917 
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ne a em a SS Sr ge EE A = rr - _ 


— ee 


TF ( SUMQAY (To 305 IGITOSZE 323932 
: TPIONT (2° anyse (7) “y7geac 
_} DPINT LOPNT,T CUMPS IT) 352953 
T2Les8 Jc296u 
TF CKNT.5T 225) SCTCE24 333973 

30 15t TUNSLL.L2 VIS 
TFECSTATS (44<€5 TT, TUN) EN. Se IGITO List 233392 
TOINT (3) NU YE (TUNE 23) ee Pb 
TE CTUNC GT CERIOPNT (CFPVSMUME (OC TUNOS) S22) 3340215 
SP WENS STATS (Catan Ty SUND MIE TAC 3S ATSC SOONT, LUND iodo di lu5e 0 0©©—O™~™O::::CC NNT 
PEMATPRTETY(STS Tans TUNIS Lesa bs 25 eee 


OQTNT TORT ,[ sON, hes 
___ Let _ TFCSTATS (GOKNT , TUND, SGo ae DT ILNKZTSLNK OD } 34959 
46) CONTINUE ~~ §946960 
DE INT OL 334071 
- IFCISLNC CIE SSUKNTHCNTOL 0 —0UO™~“‘COSOCOCOCOCO*”*S”OSO USS 
LHC JFL AG eT Bet eANDe FAULK MES SECCTIL SH? 934@6i$2 
429 CONTING= J36L0, 
ec _ 33624) 
423 JFLAS SYFLAGe!L 334129 
TEC FLAG S70 SCTE 22 934130 
a DOTNT TAS LGD 
132 3O 13L TUNE1,15 334155 
NE Ltt fro%s1,32: 4164 
STATS (tye, TUNI=9, 3324173 
LiL, TANTrNye sa 3376132 
JFLAGS9 350395 
THz FeOwAT(* = pFoCTHMV) a eee 
TR(MLEG LL T9229 GITOZSy 1 ube 
7H2 TE(ASPaV (LP MEAP UN TT =0 
P LROCP SOC SERS ETERS? 5, }14236 
WO 415 Tsi,4ac. nS 170-72 
Ete TUMPAY(TIS,. 2]462E) 
269 NUNTTSNUNTT o£ ice ae: a ~~ F8426 5 
STaTS(L eNUNTTPSAaFFA¥(2) 316272 
STalstteNint) bsureav(s) se OOF 
STATS {Ss NUNET) seREay (eo) 334293 
SOR Oe gd re ee Be OE Pe ee fo a eo sae ~ ee 
owONSS Pr © ae 
Ne S6e Taleo Se ee ee ee sare: 
rade a Cette! 40 TD 253 2346335 
of aT OS 
TyONa PWR ey 3 742Se 
CEPR SC ECP eds avit) *eOS({[Td, Jul TS Y5e569 
ALSSRseP SESE ec RQ@ay([iyeesgs(T90,JJ) 39437) 
STATS CHIP, NUNT TIS IHOele Th Came ovelb *Loebeclil*tine ee arn one. 
TECTuUPM LCT PAPOSCTINT Ss MP HESS , 26 VODE KERPCNS THN STATS A2QnY ALLO] 2e39- 
1‘¢ 1) Teeu 
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LUMOAY (Tat Ves UMOut (apd) ba PEV(T) 314663 3 


cf 3 SCNT TMYE ; : J 162 = 
jez g208v (1) 13063: 
UEFE3994, Jsbewe 
TE (3P OAV 15) .GE oe SUEFFSSFEF/SE TRL (ED F102 9 665% 


STATS (2,NUNIT) SUE FF 


DITCCKAPTESS oe. ECL Yt 4) 9 24e7 2 

5¢€ TO 25? 54e6: 

2th Sabb CLOSEMILETT) 354092 
‘ae TO ¢ J00F02 

9C7 S8Crrr 39°2 3 oeS1e 


3390S FROVMATILY ALL TONESFEFSINE waS ENDED) 
__VWAPE FCQMAT OC FRETITIVENESS OF “satin & “pF be5) 3146582 
399° sTrye JJ e305 
Esty ‘ 104553 
FUNCTICN “UME (TY) be 33456: 
Tt 2ety/t 49 9140¢71 
C22¢TxXo1LITT8 Tz tc 25%580 


TITz(T¥—4 25*T pet 5972) 
Tyme stp ers 

Le ge En Ss 13622 
TNYMOSSUTET ITAUMS 45) a ~~ 3346625 
TEOTT EV, Ad INU MAENO( LT YMe , 720773) J%wETC 


TE CTP LEC. ZI INEM SF ICT NUMS, Tes 5a) vwe 
cE CTT GT. 2d ENLMESOCA(INUME »55E) 134855 
123 CONTRaye 334605 
NUM2=e TNUMS 33467 5 
ies RPT SY, 
=u 4 ]2+694 
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PROGFAM SUPER (TNPUT S64, TACESLEDU CAN SWEF SEG SAAT Shay  SPEG25T ATS, Gl tte 
i i ll TAPELOSFIRE» CU TPUTS” 8PES1, TE ZUGSCU "OUT, APES. SOS (GDS aGs ocho 


2 TAA E5220 Ay tAPESLSINPUT pREV LEASH, TAP EB2SSEV IMs - me. t wise hd Ge tee 
L TAP EQ9QGZAG LOGOAT »-TAPE7SLOGCATL ELE MNT 26 by “aPEQaseL zr aN7 Vosiee 
o 1 TAPES SANSH GO CL EAT A264 pT APE SSCL OUATA, TAPE7O EGG 20)15¢ 
5 TAPIE712512, TAPE7 22 £12) 095152 
iy er ea sGlct5& 
C JIFFY SYSTEM Fie S$ Utt 154 
a CC ae a td Se ae tose ot inte, areas ee 
C 37¢016C 
C LGCA. 78 OGRA 230162 
C Nate NAME VESCRIPTION C164 
CC - hao he . 223165 
C i. ANSAF®P TAPES ANSWER FYLE QUiPUT (SUN TYPE = &) 5325164 
Cc. 2e Oyoar TAPE 3 CLASSIFIFEC SATA SASE duly ,sEec.*visty, ics tet eee o 
C 3. €vLeant Sune ELEMENT S7RA4Y FaL& USES 3Y CECISICN PGINT 13932172 
Cc FI2 “APE FOEn =X F FIFsNnG:? Jiut7s 
C 5. INFUT oaacan GAMER CNPUTS cee als 
C6» _&0G6) aT TAGE? NO? USE&w AT THIS TAME ante a _.. .9€517% 
C 7. OA TAPES? QUESTION/SANS AEr cureur FILS GOmarnet alte sCGi8s 
ae on STavs Fite | Be geet a s3ES Ee 
C Be REVIEW "“APEGB2 Q/4 INFUY FILE. FeCR - PRECECIAG Game FOR Pare o.oo 
C REVAEW J9=TION STIL 96 
C 9. s7”ATS TAPE6 SiATTs?l Cal SUMMARY 325234 
C19. (‘TAPESO — TERMTANAL CUTPLT FILE 
C Li. TAPESL 9y TPuUT INTERMECTATE CU TPUT TEES KFSQOTUCES ANS der 362192 
Cc. FILE, GA FILE, ant TAPESO 87196 
C 12. TASPE7O PQSTIECCESSOR SCRATCH FTLE 1079134 
G 13. TAPE7? SUF TS NERGE SCRATCH FILE 2325198 
Cc 14. TAPET7O StQ°/ Pesce SCRATCH FILE 30219 
C 25. TAPE9S SCRATCH FILE | Dyes wisthsten * 5% > eaNee = 
C geueuws 
COMMUN T4 Lue IP -TENGAG ITERAN oc dIS p25 40 NT MINES CFPS, FSFE, FF ig 2 518252 
1 ATIME SZTFITAST ,IRUN, AOSC ,F MASS, 1 VAYKV, Seeoe 
2 SFC2) .F SSFC2) -PACK (2), 137234 
3 ELMT (85 42), ALOSS (66266) pSHCTE (55 —2) CK TR LI535 2) poMCTIV ISS, 2) bye hr ed: 
CUMMUNs4 ZED /SSAV Ly XINKC Wd eTCAmD(2r) cAFeCe eae: see, 2 Sed OO 
d COMMON/OATA/ESS (8 Oy 2) oCREWS (52,2) » APO SUL2) pCEISTAD, TITHE MH (275,205 255222 
4 L PSN (692,2) PLP ULS) KEV ILL) aa Sethe rte sty es Sach 2 Sac a i eeees 
: COMMON/ONE/SLFIT(35), Awe AY (90) 6.4 BUF (LO2Z4) oC (8292) ACl, vipere eT 
4 LASCENE,ASEC*,YSECT cae Os 
o CCMMON/STHWOSIFIT (35) .d2P AY (46) , VY IUE( 1 024) ba baer 4-3 
COMM ONSTHREE/SIHIST USS), pA) y 2 YOU Ihc! a _ pas re ia 
; Cum UN JEW/PRS GE (254), TC CUNT (8) »ISMUKE (2) 52 “n° Mn Py ePCSTM (2) Arti) ie er 2 
4 _.. 2 gNMUC2) CS See ee ee Se et tie en | A S ed, fed 
: COMM ON/F PSGC/ ADFPS (2) 9 AHFPS (2), aCFPS (2) eeme. 
© COMMON/IUTPT/CCL(2) oo OUT e KING (2) 4 TO" ALC Be 20 2) 0 3552555 20 NCS le ae es 
L NCS 2SeCATLOS (65 eL302) CATSEUM(11L.2) 5 VEECSdeantaltuslils das ean 
CIMMON/REVIEW/IGE TL, [SETS eTREV 6 1519) » CE TEV Eyl YAXy ISR EED eee ee 
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Aba, FILEZTSILELT  TELFNe GUT ACESS op CL Kae ARRAY se GL IMs lite. : 
LIL WS, LOSee3L FNS, “YSUF) 365 
At, FTLETSIIFIT FN,SLTAP KA, 3SPAY,°LG: 5237: 


L3.GFS,15 26,3, F NG NYSUF) 6J978° 
GAbl, FL eESSCIHIST s TLL EN es SUTAPE Zech Kae AHe cl PMetise 0 = LIS S9: 


L3LBFS 210 24% SLEWS, LYSUF) ; Jal 
Cocses ERMINA, OUTPUT SS NOW TAPESE = Lg : sJuet. 
CauL OISCON(6LCUTPUT) Jeu #2 
REWLNO 5} 23, 43¢ 
REWINC 52 330462 
we ne an ee ee es ty hele u 32462 
C 237046% 
a De aa Sh Ee ee pote ot ge u?: 
KiNGt(2)2" REN" uw ac 
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100 FORMAT (14°) $161° 
_~ AL0_ FORMAT (2419) ease es ae ee Seats = an : St; 
Cah ina” 62° 
So eon Se Ree a a Oy ee Oe A Sa ee Be oe eee. 53° 
I XN&a ¥3"°°N“° S$4¢ 

JFUN 23 
J5UN535 562 
__ PeINT *,”" _ CA SEA JSPFFY WAR GA ME” $7; 


WRITE (52,225) OATE (AAD, TIMECAA) 
_ AL5 FCAMAT(1x,"h ATE fy Aide EXeM TIME = Myatt) 
GO fO 15% 
£20 PRIN? 44% SHECTFY PURPOSE OF Tats 2UN" 
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S| 
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Cau. <FEL4 oe 

_ TRUNBKT X12) Meee Meee ee ae a3: 
TECTRUNe Eek ote LRUNe ede GIWRETE (Sy LLDDXNAY aes 

IFAT RUN. EG .2) WRITE(S, 9%) JRLIN eae = me : 553 
aF(ZRUNL EN. G) WRITE (S, *) JRLNGS 56°: 
BSACKSPACE 52 i a 
WRITE(S2,125) 21069. 

_ 2125 FORMAT(ZX,%4") FA rae er a ar ee ea 137763¢ 
LF CIRUN:e Geet. 7 ANCe eIRUN. ol = 23)60 70 130 eet oe 
___ TF (RUN EQ2999)60 "9 133 Dias hea Sa oh cel Pe Pie eS 
PRINT 190 Sewe we 

79 PAINT *,° * aur oo 
PRINT *,* ENTER £ t+ MAKE MOCIFIEG ANS bER FILE (COSSulL="F9" out Wao 
————ERiNT *," ENTES 2 2 TO GET DurPut OF RESULTS INTFAACT VEL” 2co7s8: 
P= Int 7 “ENTER 3 = GET MUOLFIED SATCH OLTPUT (OBSUL ETSI" soe Ss 

P&INT *,% ENTER & 2 79 GET TER ANAL CETPUT AN MAKE ANSWES FILE” T5577" 
PuInNtT *,° ENTER § = GET JATE AM OLTOYT” eat ae 

60 FO 323 touts. 
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15G PRINT *.“9u YOU WESH TO SEE INSTRUC TICNS? (VETs%GI™ aiga2¢ 

CALL 2EECA CINK) ee er rns or Se 

LTFCINKX.E9."N")GO TO 120 CICA? 

d GO f9 2945: 

160 IF(IFIPST G&.uIGO 79 165 320865 

ORINT *,"“QECLSION PCINT § ONLY” =. JO84Pre 

GO TO 17¢ 33348: 

1265 CALL uF A Site teil ae 

Geo fo 133 26990: 

£70 FAINT *. “ENTER ¢ TO L98G FORCES zNTO A SECTOR” 335315 

PRINT °" 2 TO CALCULATE 2ATE-CF -ACVANGE™ 130927 

PRINT 9,” 3. TC ASSESS COMyAT™ a ee S579:35 

PINT °,* & TO ASOCPTICN GST LGOSSFa To unTme™ $3296; 

PRINT #)” TO SYSFLAY SATTLE STATESTICS” = er 33995: 

PRINT °° 6 TO OTSPLAY WEAFCN AnRAYS™ — 31096: 

PSINT #,% ? TO 490 32C*°S TO TCE FILE” 29975 

F=INT *,” 8 TQ SESTART AT A SREVIOLSLY game® Cc.” 323947 

23 P&TAT ©," 9 TO ENO GAME ANC/CR UPLATE H5STOWY FILE ==“ 5:29.99 

Pa tny ** 10 TO KESE™ ELEMENT ARRAY FFAe TNeUt File” rp Golem 

_._- PRINT #9" i102 STO CRESET TECwiNAL SUTPUT FILE 0 ent: 

140 F=INT ©,°777 OF CTS TON FOLIN*~ 27?% d2i32: 

CALL REECS 921332 

INXS XINK CL) JS1IS~ 

iP AENK.E9.9999GO TO 170” cae ie ee. Jo135: 

ITFCTNX.GE. LAND. INN LE.1eGC *o 230 eae T7226: 

| _PRINT 29¢ eee ee ae 18237: 

: 290 FORMAT(" INCORRECT 2ESPINSE = TxY AGAIN’) _ cii3ec 

r Go FO 175 2932295 

¢ 290 GT TD (14351659 210 6 S390 475 5 4B 0 ELD oe S2u 0 S73 9725 07 B00 PO) o aed Jetids 

‘ 220 LFC(LFIRST.€9-1IGG TO 226 Bel hotel top te Reet Mites Ae C3111: 

Print *,°?ATE*OF<G0VANCE MUST 3& CALCULATED JEFORE ASSESSMENTS AZE3G1127 

K ENTERED” hee See ee 2s 

Go TO 17¢ Cirise 

220 CALL SUPr és SoLis: 

GO TO 34C 27125: 

230 00 260 J2t,2 oe ee NN tee eh ey ge 

CO 26) £363,543 = Slits: 

we TFCELMT (49d) 65T2029G0 TI 250 as re 551197 

260 CONT INUE 52229 

Go To 260 32123: 

Oo 256 CALL CANNON e2t22: 

__ 260 LFIMTNES.~NE.LIGO “O 270 oar oneness Geass Bekese 

Cala MINE 32226: 

270 Cy 286 J31,2 ee eee eae 63225. 

2G 280 2#11-3¢ 32226: 

© F(ZUNT (2) J).67.5,9G0 TO 290 32227: 

280 COAT INVE 13128 


ihe ei ach rela a li liana the to Saal petal de tN Ny RED Ht 1 RIE IR I Oi as = 


= Biles (a ta A 


ee 


Q 
ro 39 seotto sie hee 
[ 290 CAtL TANK Jo23.09 13 
Tis are g 'y Be ebRele? r i oo ee eee ges ae 
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SS#SSKPCINOX) 325812 
TF(L.EQ.%0)SS2SS 22. 325820 

TF(K. EQ. 22 ANGOLA EDs LINZ 32593¢ 
NGREINOEXKS (1—MAXR Ne Mo 092565 400) _ _. 325846 
TFINOZ(NGR-1)/ 2241 e25a5° 

2Abl_ PEAOMS(3,SSKP,S2,TFINC) | 528 9S 

TNO X2 NB R- (NBR 32°32) 725479 

CFC INGX.EO.0) INOX2 32 325489 
$S$2zSSKP(INOX) 12689 

IF (L.EQ.TA) SS$S2SSS°%2. 226994 
$$#(S$$°S$SS$)/3. 32591: 

Cc __2NCREASE vUL_OF OLO TANKS __ 326929 
LCE CKLT. £7 OR Ke GT.20) GO TO 3819 225922 
CeeeeeNEW ARMOR FU Y vst9 3e5ahe 
TEC VeED eZee ANDO Ke FQ eLFIeANO  LAPHMCRIEGC.*Y"IGO TO 312° 129952 
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° > 2 2*#Sc¢ 2596: 


TFS EQet. ANQ. L.EG.L9) SSe2°SE 325997¢% 

SEE. en FA ff, ee 

LF (Je BGs ZANDT GELS AND. LEs 20) S$$zSS*.t 92599¢ 

? a 

"769 pe 

ces ee eccialiictiessbabhaeesericnictnitnihininces am 
IF(Ss .GT.1)SS31 32603. 
LE(SS/VICT IM GT.1.)G0 TO 820 8 PEG 

TEVEs1 22635. 

Y= 3168 

ABORT =1. 726497¢ 
_____ - LF (Jeo EQes te AND se STVP GES ANC I°VF LE tAsoltsagusy ss IC 
LEC Je EQ eZ ANCA ITTVR GE eo Me ANOWITYP LE. 99 ABORT ZACUST 326) 90 
C...COCDEGRADE FOP FALSE TARGETS OAH 
C TFC JLEQ. 1) ABORTAAGCRT*.7 §$2612° 
AQQP TZ AARQRT* 6128 

CG 626230 
PILL IL H20 222 ee SS/VIC TIM SOC XNPASCRTSQGUNDS*2.) IG 
AKILLZAKILL* FKILL (I-10) 32615- 

metas — SKILL 2 SKIEbL Ot -OKILL CT <-30)) 2S of ees i he ia OLR 
SHOTS VIITYP,JISSHOTSV(ITYF, JIeXN*RCUNES . 32617° 

(ZF LAG) PINT ( #4 "PK SHCT 2 *, OK (f-15) 32618¢ 

1 SHOTS VIITT YO, J) 62613- 
TEC JoE%s 1) ANCE AM Ds AM (TAM) #XN®ROUNDS ree ___2262a¢ 
LECQ.EQe1) ANCING) BAH CINC )* (2 CREA (T<2 Cy JP PRSMKSECOM( LID S26 2L° 

sc -4: epememmee4* | | | ne Oe ee __._. .32622¢ 
830 2 ONTINUE J2623° 
CeeEND OF FIEES .JOP..END OF FISER LIOF. ENC CF FIRER LCOP..ENC OF FIPE= 726 28¢ 
C 3 2525¢ 
ae WMIRLS (Lp eoAKILGEDO VICTIM 2 AKT 
IF (RFLAG PRINT(50y*)°TKILL AKILL =z “,TKILL es AKILE 226270 
_____TFIPKILL LE0-9GO TO e890 28 
TFC(S KILL .LE.9.9GO TO 342 32629° 

326 %02 

CecoeeKTLLS ALLOCATION LOOP 326 31° 
nh on hg eh a et i ee eh ae ef es ee 
96 870 £211,398 626 33C¢ 

_ _IFUAGs.FALSE. eee, eee Seer eee were 9 26 3u7 
LE CJFLAG CAND. KFLA CoAN Calo GEolTeSTLeANGoLebfoi EST PULELAG SZ. QUE. 326357 

F(Z FLAG PRINT (SQ 8 )*%eeoFIREF NO. 2 “,T h 26 36: 
AKILLATKILE *CLeoPKILE (TOL od SKILL 926 37: 

__ AMIRLSIFIX(AKILL82C.¢ 51/200.  ——s—“(is—‘—s‘“‘ 2B Ht 
ALOSS (TI, KIBALOSS (LK) OTFIXCAKILL PEL oe. GCL) MO ACK OL?) $2639 

__ __ PLOSS (Ky beg 2) SFLOSS (Kobe 2) OLELIXCAKIULS1G.e.0529/19. = = == = § 3286EC 
TF .G7.215)60 TO 440 126417 


ALOSS (I, 3IFALOSS(L, 3) oLEIX(AKILL ARTO EW( KH15) O27 ee CCL) PACK CL) 725427 
PLOSS (3b 02) SPLOSS (3 ene 2) OLPI MC AKITL LS ATOCH EA (MKm tral eee cL Loe 2266237 


a ee a 


me ches oes ee me eo ee ee ee ee, 
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SF (et LT.213950 TO 46 326466 
AQ ALOSS (T, 2) BALOSSCL, 2) +L FIXCAKIL LS REWS(Km1204) M10 oe CTL) MSAK (SD 526652 
—_PLOSS(21b22) 2% 08S ¢ PO LroteTELI/ AS. 2265669. 
IF («NEL 22 =e aoa 24, ANC.KNE. 2 ENO. KenNE.29950 TO 362 32647¢ 
(tT MOUNT. ORL .E9.10I60 "3 466 926489 
AKTLL#AQKILL “6. 726 496 
20 659 KKa3et5 ___92659% 
LFEIELMT (KK ek) LE. 9GO 70 850 326616 
ALOSS(T, REL SALOSS (7 eK) LET CARELL TEL UME) Ae re DEL) SC ACKIL) 926520 
PLOSS (KK oho 2) BPLOSS (KK, L, 2) LET MCAKILLOPLTCKKISL OO IGE S29. 326536 
850 CON INUE 02654C 
866 IFCTOV2.EQ.QSPRINT *,"OVLYZ=22 TeAKILLeALCSS,FLCSS 026556 
_____£. eZ sAKi hb sALOSS(IeK) PLOSS (Kel, 2) 229560 
870 CONTINUE 126870 
CoeENO OF KILLS ALLOCATION LOOP cENO CF KILLS ALLOCATICN LCCP.ENC IF “2926580 
C 328S9¢ 
ag IF VPSINT *,“OvLy2=3 As LMOUNT Ky ELMT»PLOSS »PCOM, UN 325607 
L “ei oT Ae IMOUNT eK VELMT (Ky LI 5 PLOSS (Kobold sFCCM(L Do FUN(L) 26612 
2 »TRILL» SKILL 126626 
a90 CONTINUE 726630 
__ 900 CONTINUE 226646 
CocENO OF TAXGET LOOP..ENC OF TARGET LCOP..ENC CF TAPGE? LOTR. ENO JF 78452555: 
Cc 126565 
910 CONT INUE 226672 — 
GENO OF SZJE LOGP..ENS OF SIDE LOGP..ENO OF STCE .ONP..ENC IF SIDE 100026685 - 
«£26699 
TTPaSSsITPass +2 —. £26792 - 
IF (L TPASS.E7.2160 79 466 026715 
CeocEND OF O8SCURATION LOOP. .ENO OF O3SCURATION LOCP..ENC GF O3SCUFATION J2672° © 
Cc 12873¢ 
a 228763 
920 00 £019 Jet.2 T2675< 
TFLAG2s0 | ¢ 26760 
CO 1000 L2#1,32 026773 
INXzT 326780 
PLOSS(Ile Joi) BPLOSS (To to 2) PLOSS (LT, Jot? 12679, 
SEW LOSS (Te Jeb) LE ELT (INN s J) G0 To $60 _ 3263896 
PRINT *,“ALL OF ELMT “,INX, CRCE “sJe™ “AV N CTLLES 2b at: 
90 950 «211,35 326422 
SLUE SIFIXCALOSS (K INK 1/00CW(1)I710. _ _—a 2268 3¢ 
REDS (ALOSS (Ky INXI @IFIXCALCSS( Ke INK) /PACK (2) DO 9RCK(L09/141. 328466 
ITF (3 .E9.2)60 TO 930 826485° 
BLUE SL FIX (SLUESEL MT CINK, JISFLOSS (TI ojo 19918 0% 59/15. 1 28486S 
GO TO 940 226477 
__ 930 REDSTFIX (PEDFELMT (INK J I/SPLOSS(T op Je 19 910.4. 51/156 ag 8 at 
~ 960 ALOSS (K, INK) S3LUE*PACK(1) "20. REDS 15. eee 2 26A9> 
950 CONTINUE 32693: 
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2 4? eS 
IF (PLOSS (2,J3513 -47.21960 "O £693 ; 226932 
—___—__ ITE (PPLAG2Z.£G.211GO TO 9897 .}.}»§=§= HG? 
PRintT +," = 12695°- 

s* a 
TF (J EQ. 1? KINOs”“S8LUE™ § 26976 
TRUN, Nf fags 4 7 A SD |) a eS 269865 
970 FORMATI(™ “,1xX,Ab,” LOSSES TO THIS POINT@, 7,7, °ITE4 @¢.osT™) 142690C¢ 
sm OSS it test? EE 
TFIIRUNLNE eS LISPINT ADTSINKS TKILE 3273123 
990 Ff aTi*™ *.7%x Sx AF 7320 
IFLAG221 32713¢ 
RSG ONT i oo ee ee ed 
NWOs N&Oe 7 8279566 
Poems} « Wit » Biko ENON Oo eo ey MARRS arene ar aE Een oe Pare 1275363 
c OUTPUT RESULTS. 427375 
tT 794% 
PRINT 1928 Q27°9°% 
ROG CR ae Cn i es Q2710¢ 
PRINT 4,° Semen ARMCR ASS ESSNHENTS eon ot” Q27141L- 
___.._ PRINT 21930 __ See piles ites aot WET Res 
1030 FORMAT( I%°,26x,°2") i 227138 
90 1329 Jj2i.2 A276 
Lst 6 2724S¢ 
preecmeenrae A Yt A> 5 Nt OL a eee fe |S 
TFLAG2Z20 227278 
_ 00 £118 Kat,32 = C27LK% 
~ MKILLSAL CSS (Kobe 1) 327197 
CLOST20, G27295 
LF (K LT. 160 AND MeNEWLII EO 70 22340 co 272140 
CLOSTSAKILL®CPEWS (K-17,L) ee ee 
2006 ITFCAMILL LT eLeoANOeCLOST.LT .019G0 TO 2110 J2723C 
LF CIFLAGZ.EQ.1960 TO 1079 __ 327262 
TF (9.EQ.2960 TO 1659 32725°¢ 
PRINT *, “I TOTAL REO LCSSES b es 22726¢ 
60 TO 1060 cerer® 
£050 PRINT *, “I TOTAL BLUE LOSSES has 127265 
1060 LFLAG22¢. — - €2729° 
PRINT *,"2 Item 6 LOST CREW ad Sippee ghtanucties pcan eee e 
PRINT 1330 327327 
1979 TFIC LY. 16.ANDO.KNEL133GO TC 1089 22732: 
POINT 11900 eK, AKILLeCUCST 227337 
a ee ae a ih A ee | 
1980 PRINT 1090 ,K,AKILL 92735? 
1090 FGRAAT(@ Lh ree T2e3K Fed elOxX, ery = i, NIG? 
L100 FOQMAT OEM T°, UX, T2eFFet eK Get gy uX, I") 127377 
N 127 %8: 
PRINT 10930 * 27397 
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= se7uce 
On Int »,~e Oe © £68 ©9248 62 20202000880 Bene e 5% 327613 
en UE i i i a ee es 
1226 CONT INVE 1274635 
PRINT 4, “SO g28 SEaS 22 SE 885525 525282884" 
os) PRINT 1029 127656 
FITRUN-EQ.L) PRINT 35° A R A MENT PRINTED MER E™ 227665 
Cauh CLCSNS(3) 9274679 
NXs 0 c27uec 
CALL LOSSCiltL, S0,Le320 INK) 3127493 
IF (I NX-EQ.“VYES*ICALL CK STOR(ANL, TRUT) J2786° 
Cc 9275135 
LPUT s-4 327529 
AvMis “INPUT 2° 127532 
Cath CKSTOR (AHL oT PUT) 327566 
O06 1235 [37,99 327558) 
—_ AH(I)ZARRAYV(TI) 0275 63 
— 14135 CONT INVE 927573 
CALL CXS TOP (AHL TPUT) 027538° 
— Cacceet RANSFER CF S° 122 WEAPONS SACK TO CRIGINAL ARRAY 927596 
_ 12460 ELMP (S50, 2vsELMT(S6,2) ELMNT (25,2) 32769° 
ELMF ( 25, 2)20 327612 
8) SJ [2z,TMAaxky 327625 
SLOSS(Ts $0) 2AL OSS (2.50) +ALOSS(I,25) 1276334 
ALOSS (2.25) 89 J2764¢ 
1150 CONT INUE €2765¢ 
_____32766¢ 
1168 FORMAT(* LTNCORRECT = SESPONSE 4ST BE GE C.3 ANC LE 1.0%) 92767% j 
92768° 
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COMMON TAs TO Te sLENGAG. LTERRN, LVIS,IMCUNT MINES ec CFPRFSFFE FDA, J27720C 

LME TELRST aLPUNS NORE oFNASSSIMAXKVe TL 

2 SFC 2) oF SSFC2) -PACK(2?, 927730 
| ( ze i ‘ 
COMPMON/REEQs JOAYL, XIN} 6), ICARD 120). TAR POW 127753 ray 

PS (8002) CREWS (5302) pAPOS(12) e2POS(E) g IT4YESN(29 02) 9 9277656 

L PSN (65202) PLT (L595) KEV EL 72) 927775 

COMMON/JONE/LFELIT (35) - AWAY (99) eMYSUF (1024) 921892) 2 ACT» £27745 

LASCE NE ,ASECT 62779" 

ZHYIST 4 \ &) : 

OIMENSION GFPS(2) , TABLE (7,2,4) ,STALEC ES) , FAC( 2) 32791C¢ 

AST LP aa pa aa Ye Pr ee One, 1 1-4 

OIMENSION F(2) J2748 3° 

GQATR CC(TABLE (Te JoK De JBh0 2) oTBte7) KStebds FAB 


Le 12, 05, - 08,» 16s + 060 006s- (5s 984- (5s 008s. (Se 209: Cos 10s 229s = 160. 0027950 
s 7 0& « 07 203 «99 eo C3eetIeeI12Zs eit 0045205 0350015 0 340 327 365 
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he go G3 IS 0 JA 9G eeM2e-IG4 TBE 
DATA (STALE (LT) LBL. 4d /L 29 20922 86e3-1/ $273 39¢ 
QATA CCTAGLE SCL oJ) 22202) Let eS/ 19 ott e eZee at Sev Sook i vos JonFoy JE7902 
1 7Oe o2e/ 32792: 
| 27 327925 
ARRA ¥(5) 290 32793C 
0 99 [26,99 12796: 
96 ARR|Y(I) £6 12796€ 
100 PRINT %,"CO YOU WISH 70 PROCESS INFANTRY ASSESSMENTS?™ 42796: 
pe PEECACINE) 327973 
adh ac 82798° 
TTA oT TO $16 $2799: 
i NO EO Gan a a i ORIG 
110 al .” INFANTRY ASSESSMENTS ® 629c12 
PRINT *," * 02992. 
ARRAY(?S) @1 G248u 35 
420 CO 160 Jete2 329262 
KINCs°SL VE" 32825¢ 
_____ JTF US -EQ. 2) KINDS"REO™ _ i tC 
130 PRINT 160.KINO 32453972 
ded FORMATIN ENTER FRACT CF %,Au,% MANEUVER FCSCES COPMITTEC (MAX 1.9°192609° 
CALL REE PL 52899¢ 
2 ) s2ezac 
APORY (75 oJ) 2F (J) 72611: 
LEE OS) GT De peAND FI JIWLE 02 G0 TO 1690 = si ( ti ( eC re) 
PRINT 256 328122 
_ 450 FORMAT (“INCORRECT RESPONSE - TRY AGAI IM) eT TCS 
GQ TO 130 gesisSe 
NT IM 3229160 
470 PRINT *,"00 TANKS SUPSORT “HE DISMOUNTEC INFANTRY CAN WHOS SECTOS" 228272 O 
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Al, REEQACINX) 28988 
TF CINK .E9.*Y*) ARRAY (78)81 : 128190 
BGT) As ee age HT" RE do a 2b (EE na eg te a ON SE 7-9) 
TF(INX.EQ.“NWIGO TO 210 128213 
G60 TO 173 32822) | 
210 INOEX#9 92823¢ - 
TF CINX EO. “Y") INDEX 315 328260 
ATL20. 426262 
CIL20. 329263 
00 220 Té&Lszie2 Jes27e 
F zQ. 128286 . 
Face TEL) 21. 32829 . 
—____ I F(E LY (3, KE1L)¢ 72064 2. 229395. | 
00 220 126,30 328312 
F NM AND oI GE eo 16 cA A0 ei eb E 020960 10 229 g2sz2c : 
GFPS (TEL PSGFPOS (CIEL CELMT(I,TELISFEOS(T TEL) 32833C : 
V2stus | 
LF (GFPS(IO) .GEe1eIGO 0 230 32835C - 
PRINT *, “THERE ARE NO OFFENCE®S*-ASSESSMENTS CANNOT @€ “ADE.” 52836¢ 
GO TO S10 928379 , 
__.230 POINT %,"ENTES ¢ HOURS OF TNEANTRY ATTACK (MAN = €.06% 328380 
CALL REEDG 228392 ; 
HRBXINX( 2) 1284600 ° 
ARRAY (791) 28HR 328412 
HROs HP 328425 ° 
TF (HO GT 20. eANDMRLLE.52IGO TO 240 ss VB &SE 
PE, ct, ee 5, 3) Seance a a ee ee ee eR ee ee 2 ae 
GO °O 230 S2845¢ . 
260 PRINT *,“ARE AMBUSE TACTICS BELTAG ENPLOYEC™ 829665 | 
CALL REEDACINX) 1294079 : 
TF(INX.E0.7Y") ARRAY(80) 21 02848) 
IFCINX.EQ."Y"IGO TO 3A0 C 28490 
IF (INR.EN."N"IGO TO 250 228502 © 
GO TO 2460 22951: 
250 GFPZSGFPS (TA) “APOS( TPs (GFP (TO) *CROS (LENGAGI) 928526 
 @0 260 {2106 CC SSS 
IF (GFPR.LE.T® 5960 TO 270 1285469 
260 CONTINUE BO eee Oe GaN ay eee) wap aT Se | 1 Seek eS 
Is? 328565 
270 INX#T ont a a genes TO HGS 
GO TO (3005320 319, 280,290» 290), TENGAG 72958C 
280 Ist 428543 
gett MO ES Ge 
290 Is2 T2861¢ 
___..60 TO 320. = on 92862; 
300 23 928633 
GO TO 3290 32964- 
320 Ize 72°65: 
Me 101 
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IFCMR.LEG2IGO TO 439 12867: 

z inspec eddie at To fea ied ea eee a ed 

ATRITZTASLE CINE, 1, 29/FACC IA) r 328696 

T2Ta i] 'd 2767356 

338 LF(ZJA.EQ.1)60 TO 340 J28712¢ 
peremmeere  A Y 4 Riscla dl 2 LL) ol ee Tae ME | 
OTSE LMT (32,299F (1) 2OEL 928730 

___ G60 TQ 3 —_____... 2 28760 
340 ATSELMT(3,23°802) AIL 328791 
T MT ( nd ol © 4 te 82a 76C 

260 AILZALL OAT? (1 (1. oAT ALT) OOHR) 29776 
OTLsOILelT (1 -¢ TRIT) ** HR) _.22978¢ 
TFCZLFLAG.NE.0IGC TO 250 923792 

2 GO TQ O30. ee a 9 29808 
360 HRRSHR-1, 324a42 
F (4 Hes 328820 

PRINT *,"YS ALUE AMSUSHITNG REO™ 02883° 
_____ CALL QEENAITFELAG) GBH OL 
TFCIFLAGEQ.”"Y"IGO TA 379 3264583 
_.____ TLRITELAG -EQ."N"WIGG TO 3AG 28 
Gu TO 360 C2aare 

= bal S ) 88Cc 

TAAZ1 G238a9C 
9 a a i ee HIS 

360 GFOR 8G 5 *GFPS (2)/ GFES(1L) 0 286912 
ae I a i hs lS ne ed ae et i ee elon ee 
390 00 &©00 £21,4 32893¢ 
IF(GFER LT STALE(IDIGO TO 419 32894C 

600 CONT INUVE 32895¢ 
ee? §__) ee ete eee so tees I a a i SOR SOC 
410 ASTAGLES (2, 237100. 248973 
____ OFsF ABLES(T 29410050. = = a8 
TF(LT AA NE.IAIGO TQ 4235 323995 
ATPITs4 §2909¢ 

CTRL Ts 929912- 

_... 0 T0 3300 2 ANE 
&20 aTPLT<OF 729e3¢ 
TIRE i ee SE TESE 

GO *O 330 329052 

®30 LFI(TRUN.E9.1160 TO § 729962 
PRINT %, “®omeIMFANTRY ASSESSMENTS one” J29197° 

_ Sb0 FORMAT Ce ee 26K ont) eee. ig. . B29GTU 
00 8696 J#1,2 22939° 

gs ast RE Os tn i a ce it a ee a a OD 
IFLAG=9 72911%° 

K NOs” ih o29%42° 

L 22 32913¢ 


a a rm nn rrr nr er nr a ES . - - 
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ro] by, 2 9292460 
KINGs“REC” j 329252 

z 12916: 

650 00 £90 [21,INOEX 92927C 
CE LMT ¢ deo ) TQ & 329150 

AsAIL 229199 
____EFG .6Q.fOasOt, E8292 
TECT EQ. 2-O0R-T-EQe&.OR.T EQ .53S0 70 490 329221¢ 
IFT .€0.7-AND LEG. 2950 TC 499 a2922¢ 
Asa Prr( Tt) é 292390 

Az X(4°40.¢.5)/20. 0 29240 
ALOSS(3,2) 8ALOSS (3el) +LEI XC Aer 7. ©2992 PRP ACK IL) 32925¢ 

TF (BLT. 19GO TO 499 529266 
TFECL FLAG -E9.19160 TO 479 £29275 
PRINT 4660 ,KINO 329286 

460 FORMAT(S IT, 3X eAeeiX,” INFANTRY LOSSES “5 3x oI") 229292 
FIINT *,“f TEs * OST 02939. 
TFLAG21i 22931. 

_ 470 PRINT &©80,T,A 329326 
~ 80 FORMAT (* IL, 5K,T2e 7X oF 6 ol rOXe 1) 229330 
MODE CONE TE nnn SIS 
PSINT 440 3129 353 
PRINT *, ** BS S2SSTRETSITEVWSEAAIZLELZE sso“ 6829366 

S00 LF(LRUNWEG.LIPRINT *,° TOThL INFANTRY LOSSES PRINTED HEF E@ $29e7°¢ 
NX2 C 2938°> 

CALL LOSSC3 eS ebe lt Se INX) 0 2939¢ 
I a eh 

AHLs “INPUT 36° 2294616 

se 3 2962"% 

CALL CXSTOR (AHL. TFUT? 2294636 
ITF(INY.EQ.°NO"IGO TO 519 32944 

10 $05 £279,90 12965¢ 

SOS AM(l)sARPAYIT? 2294EC 
CALL CKSTGR(AN1,FSUT) 22947¢ 

518 ENO 329468° 


Eh OO. ae, |<, | Se nn ie eee nen ne nau i mn emeRORA (i, jy 9 HT 
COMEOGN 24,20, LP, TENGAG, IT ERRN IVIS pSMCUNT MINES, CERF, FSFEA, Fas, 3295142 
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waSs.I” 1295 2° 
2 S¥C2),F SSF 62) PACK (2)- $295 3¢ 
CH 5 : SHOTS Q6 4° 
COME GN/R EED/IDOAY1 pXINV( 4) »pICAFO( 20) I ARNO 0 2965 
______GOMMON/QATA/ #29 (Ae 2) CREYS (5 202) AFOEL1Z) pCPOS (6) a LTHEF M(2902)2 29565 
£ PSN (602 02) PLT (25) »KEY (172) 0295 7% 
COMQON/THREE/IHIST (35), AN(90) pLVSUF 12026) = dG 
pcre were BO ee ee eee te ens acs te ea necw a! re 
. @0° 
OATA TCT CURTIN PCY BELPER. 729612 
_—_— — DATA th ol8 1 SVS M2 Soe 27 TAS ee I GG 
420 FORMAT( NUMBER NOT WITHIA DOCTRIKES eC cncaskyY - TRY AGAIN”) § 296 30 
Lz "ZNPUT 4” 329545 | 
IPUT 2-1 329656 
CALL. C¥XSTGR( AHL LPUT) 929666 
N13221 €2967< 
ao MEL OPT Oo ei 8 hk i 8 i ee a 
1460 PRINT *,“00 YOU WISH TQ PPOCESS PINE ASSESSMENTS?” 12969 
CALL PEEPACINGN) ss THE 
LTFCINK.EQ.*Y%) GO. TO 152 329712 . 
TF (CL NXEQ,°NW) GO TO 639 0297 2° 
GQ ra 166 oC 
150 PRINT *, “SELECT TYPE OF “INE EMPLOYMENT” 29746 
CALL KEEPS Bae 
_____FENGs XINXE2) eis AS TSG 
TF IND LE SO AMINA) ZINE I2ZA777- 
F{(7ND EQ. 329737 
TF(ING.EQ.2)60 TO 170 @2979¢ 
____EFCINGEM.09GO TO 620  —  A8S 
IF(INO.E0.399)9GO TQ 160 ga29artc 
opts NT 8 Sa a i ae i Nee 
460 PRINT *,°FOR CONVENTIONAL “INES s cccccveeesENTEP 1” 629839 
PSINT *,* FASCAM MINES coccccccccevvevesENt=2 2” C 29AGC 
SRINT 7.7 #4 3T9 EnNC#4¢,, eeseee0e8e898 seeoskEN. £2 s° 32985° 
gO TO AGG net a es ee 
929475 
ASSUMES OEFENQER EMPLACED MINFTELCS 12984: 
72969¢ 
© a7 Cau FASCAMC(PLOSS) G2999¢ 
GO To 180 12991: 
__249_ KINDS" SL ven _.22992° 
LF (L0.60.2)<XINOs “REO” 32993- 
_ f0K30 se 8 2994C 
IF in1 012 .GT. 90)Iowat 32996¢ 
A 
Catt *FEECA CINK) 4 2997° 


M-108 


r. ? 


“v760 To 1908998 


te 


TFI(INX.EQ.°N“IGO TO 290 92999¢ 

gc A ee ee ee 

190 WOES Fs.9 Q30c2c 

339329 

200 WCEGF 2.7 03933: 

_ 208 LECT OK LE. 0) AHINS 91) BC EGE PRYP RY 

220 PRINT 220,KIND 930352 

__220 FORMAT(“" WIL “.86,"% HAVE ThE CAPSAIL ITY 70 E4PLOY MECHANICAL’, 239° 6¢ 

1 * MINE PLANTERS?) G3007: 

ALL SEED ALINX) 03038C 

TECINX.EQ."Y7) GO TO 230 336096 

TECINX.EQ.°N™) GO TO 289 SOT 

GG TO 220 g312° 
ae <a *,“ENTES NUAGEP OF PECHANICAL MINE SLANTES PLATCONS (MAX 309936229 | 

33613¢ 

at faded PENT OF aiNEFIELS 0303465 

Call atte J3515° 

BMPL SXINX(L) __ 0160 
TFC(LOK LEC AH(NL #2) AN PL 2391277. 

TFIS MPL GE e to AND. IMPL LE.30) GO TO 265 ao 939145: 
PPINT 110 130195 . 

6 a°020¢ 


260 FOINT *, “ENTER NUMMER OF AVAILASLE “INE PLANTER HOUSS (MAX 330) J3921C — 
CALL REE DG 33022: | 


RNMPMsXINX(1L) 330 23¢ 
__—ORE LE OK LE OI AMINE O3ISINMPH ee irs ae 

TF (QNMPH GEL AND sPNMEMLLE. 320960 TO 256 ~ 079262 
PRINT 110 13026¢ . 

GO TO 266 12627: 

250 LTFLC INOW EQ."REC*IGO TO 260 520283 

HOUR $26. = <x Se ee 6.1L be: 

STREPWS20000. 0 SS 

GO tO 276 332 31° 

260 HOURSS2. 036 322 

STRIPw21000. 93C 33° 

270 FRONTS (OMPL PONNPH WOE CF) /MOUFS “STAI FW 230 340 

J32 : ~ 939352 

69 TO 340 20362 

280 PRINT *, "ENTER NUMGER OF MEN USED TO SMPLACE NINES (mat 12009 33037: 

REEDS 230 18¢ 

SO ReRENRTES 929297 

TFITOK LE OPAHING bd SNUGEN 0 TE 

LF I(NUMEN .GE.2 ANDO .NUMEN.LE. 1000960 0 290 13G412 

PSINT 21210 _ 33062: 

GO TO 248¢ I3C437 

290 PRIN? *, "ENTER HOLRS AVAILABLE FCR EMPLACEMENT OF 4EKES (YAN 395095 1 wb? 

CALL REECE 635465¢ 
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ee ee ee ee ee ee ee Se 


metal ce 23 ry cel ene 2a 


eee Mw sine ie sot 


“wee 


4. at eer ee 


Toe AER ee Ne EYRE ee ee eat me ee RY RAT I PRET. wm 
ne o. 


_.__— HR SSNs) : G30 46- 
TPIT OK LEO PAHUNE +6 )2HR “MAN WI47t 
_____IF (W#RMAN AGE at A La Eas Isles: 
POINT 12:0 - 130492 

¥ 3 3CS3- 

300 OMR= NUME NfHRM ANS HOEGF 930514: 
__320 PRINT ©, “SELECT MEINEFTIELG OENSITY™ ESAT 
CALL REERS 27053: 
_____ od BEND ee ee ee ee ee eee Se: 
TECLOK LE CGIAWINE 96) 2 J 23055° 

) T O3CSE- 

TE(y GE.~L-ANO JeLE.5)1GO TC 330 93057: 

a OUT ee he i Nn Ne eee. 
320 FRINT ©, “FOR GERSIPY .0923 MINE/SQ METEP Lc cee ENTER 1” 33669° 
__ _ PPINT *," ss Oe DAES MINES SO YETERe eee ee ENTER 2% ss EHC? 
PRINT *,° 03966 a ves Bers ee 7 13061: 

2 eesecN” EF &* 33062: 

PRINT *,* 03290 mE SETER ee ENTER 5° 43682° 

Lo is > eas. 6» mea ee Re a eS ee ee Te) | YY 

330 FROMTZPHR/HRAED( I) PL 03. §3065° 
_.___FRONT2 LEIY (FRONT © 5) Shere Is eS aS as I 9 oa Sle hee ede ee 
IF(CIOW Lee OG) AMINE 7) SFRONT 330672 

e CHA: 

350 FORMATI(@ POTENTIAL MENEFLTELD FRONTAGE TS “eF 8.0) 33€69¢ 
PRINT *,.° * as 93576: 
PRINT *,"ENTEG ACTUAL ME FRCENTAGE (MAXSPC TENTIAL)” ~ 32972: 

CAL REE OG. oon: ci 5 se eee 
AFRONT SX INX(1) 33073" 
TFE(CLOK LE. OPAMCNL OS) SAFROAT I3C74: 

ITF CRFRONT.LE.FRONTIGSC FO 369 2075: 

pn RN 28 ns ee NNT 
Go TO 346C 33877° 

_ 369 FRONTZSAFECNF sess ee tts 3707487 
370 PRINT *,"°ENTER FRACTION OF MINE FLELO NOT SY°aSSES @Y ATTACKES (4 893770° 
1%21.0)" 3398¢c: 
CALL SEEPS V3Gar— 
PMENGYSXINX(2) a 33282: 

TF CTOK.LE.O) AW CNL $9) 2 PNENGY 97583" 
____TF(P MENS Y.E8.9999GO *O 3890 _ __ 830 8uc 
LE COMENEY .GEe 00 e AND. PMFRGY.LE.1e9GO TQ 30 “$3286: 

POINT 110 §9304§° 

3890 PRINT *,°F09 EXAMPLE? 9, MEANS ALL OF THE as oan 3€ evOaSSEO™ J3TA7: 
PRINT ©, “OR, mE ANS NCN F_TR CAN FE SYPASSES™ STI G98- 

GO TO 379 §3999° 
390 FROSYSFRONT*PMFNGY 980 
PRINT &600,F208Y aS 
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ee er rE Se ge mr 


30942 


TRIZONE SXINX(L) ; 33095: 
—_IF(LOKshEsDIAN(NDOLODSTOZONE dG GE 
IF(CTRZONE GE. FROBY AND. TRZONE.LE. 100000) SO TO 415 ; 03297: 

on 338949 

GO TO 399 630991 

620 PRINT *,"ENTER AP MIN NSITY(SG METER) = (MINS .SL3=MAXS.155)" 532207 
CALL REEDS 331922 

Sa NS i a aS ee ee 
LTFCLOK LEO) AM(NGOL4) 3X I3,53% 

LF(X GE. oe CLI CANO XL Ee 169960 *O 20 92136° 
PRINT 119 331952 
_____GO TO otf 931962 
b20 INKXeX®iS5C. 33137¢ 
SHOT SV (16.10) SSHOTSV (26, I%) X*L5CEFROAT J3108C 

INXS INX/ 4 o2 032095 

PERS ASs(INX61)/10. 931195 

PERE Ov2( FRONT *PMENAY) /TRZCNE PEIEEK 
IF(PEPCOV.LE.L) GO 70 430 _. ____ 932120 
PRINT *,*PERCENT OF ZONE COVERED MUST [€ SETWEEN ZERC (9) ANO™ S3LL3¢ 

a PRINT 5,“ONE(1) - CHECK THE TRAFFICASLE ZCNE OEFENDES TO SEEM  JPLL4¢ 
PRINT *,."LF IT LS LAPGER THAN THE RESULT QE ULTIFLYING sf 331156 
POINT ©, “FRONTAGE TIMES PERCENT CF MF _NOT SvP4aSSES™ O3L165 

60 70 390 03117: 

&30_ PRINT %, “ENTE PERCENTISECIMAL) OF FORCES ENTEFING ME (MAX8.5)" 332182 
CALL REEDS 922192 

Puxt NX(1) 3$7229¢ 

IF (LOK LE. OPAMCING 042) OT121¢ 

F (2 .G NOP. ‘ TO bs 31225 

POINT 110 631235 

GO TO &30 33124: 

40 CO $06 “21,32 43125° 
LFCELNT(K, LA) -PLOSS (KEM, 2) -4E.0.9G0 TO $00 23126" 

LF IR LT LG e4NOeKeNE.3IGO TO $85 231272 

IF (kK .€0.3. AND -IMOUNT.F0.2)G0 TO 500 33128° 

IF (< .NE.2IGO TO &50 u 21292 
AKILLSPERCOVS (ELT(3, IA) -PLOSS(3,1A,2)) SF*SBERCAS 332302 
ss AMILGATPLKCAKILLS¢g.¢. S970. @&#&#&#&#8©|©|.0.—lC CO.CC 131 31° 
___ GO FO 6AQ __._8ILse: 
@50 AKILLSPE®SCOV® (EL MT (%, TA) -PLOSS (Ky LA, 2)) *OFAT ACC 33133: 
AKILLOIFIXCAKILL E1000 259/10. J3i3uc 

ALOS $ (5S, KP BALOSS (6 KP OLEIXCAKILLEL Ie oS CLIPOACK( TA! 33125¢ 
PLOSS (Ke TAs LIP SPLOSS(K of Ae LP OIF LN CARILLOLG oo. ucLI/2LI. 13235? 
IF(€.EQ.1)G0 TO 460 231437: 
CLOSTSAKILLOCSEWS (K=22, 78) 2038S 

GO TO 470 232792 

66 TRAKILL®2. J%t43° 
470 ALOSS (5_2)2AL OSS (5,2) OLFIXICLOST*10.%.001) SPACK(2 A) 33146i7 
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ee, of” a nde aR Ee ta, re ee oe rn ee ee 
: teen = BT er ee ae EE «| rt oer tee 
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Se es ee 


ee 
a = . “ans . me 5 


reed / —geeie- -a oe ee 


eer oe, 


—? 


4 wee oe 


2? & > ¥ 1*7#4%,6 42° 
LTFE(I MOUNT .€0.1.GR.(K NE. 24. 4NC eK -NE.2839GO TO SQA I31%¢3. 
2 * + q &o 
686 09 94 KKs3025 < 032457 
- 46: 
ALOSS(5,KKDSALOSS(S, KK) OLEIX(CAKILL® PL TC KKM LO OO L PP FACK(TA) 272472 | 
—___PLOSS (4K » Phot BPLOSS( KK se The 1) OLFIKC AK IELO PLO KK) © + } oat 
490 CONT INUE 33214692 
$3c 
TFCERUN.EG.1)G0 TO 626 2325172 
; e 
06 $90 X21, 22 371353) 
8 OSS(K oT! Zi 5h. 
TF CAKILL LT. 1160 TO $99 93155C 
___ IF (K eGEo2.eGNQ Keo E. 15960 TO 520 = RBS: 
IF (Ke -EQ.11G0 79 SLC 031572 | 
SAK LL CREWS (Keo A 332%586° 
GO TO $20 J3LS9C 
__ $216 CLOSTSaKoLes2. a72500 © 
S20 IFCINKX.EQ.13G60 TO 556 J32L61¢ 
______ PRINT 530 83162° 
S30 FORMAT ("1") 33163° 
PRINT %, *@emom~ AEFTELO ASSESSMENT So eue™ 3 3104) 
PRINT S40 83165¢ 
340 FORMATIN T°,27Ke"tMy) 92 GT 
PRINT *, “Tf ATTACKER LOSSES r™ s3167° 
PRINT ©, “7 ITEM @ LOST CREW > he C31654° ; 
PRINT S&C 032696 . 
ES 331737 
550 IF (K.GE.2.AN0.KLE. 189160 TO $70 J7L72- 
_______ PRINT S6QeKeAKTLL CLGST EE 
$60 FORMAT(@ [SK oT2 oF 9.1 F711 OK, I) 231735 
8 nn es i 
576 PRINT 560,%,AKILL 032782 
540 FORMATI(@ [5X ,22,F9.t,21¥,"1™) JTL7&S 
$90 CONT INVE J3L77:2 
SF CENXWEG.G)60 TO 600 33278¢ 
PRINT SuQ 33n7a 
POINT 9%, “9 eee $88 ES 982089 228 222 232222224" Streit 
Seine S30 J21314°- 
F(T R Q. 3) PRIN * LOSSES TC MINEFTELC PRtINTEC HEE" 23282: 
00 619 «21,32 334237 
ey Oa On ae a 
PLOSS (Ke Je 2) BPLOSE (Ke Je 2) tPLOSS (Ky Jet) 13248; 
______ PLOSS (Ke Jo 3) B90 hs ay eee et PS on OS 
610 CONT INUE 334377 
tT 0 73288: 
620 INXs0 32139: 
ya fie Se ars iin a, Pee 1 od (|: eae ae OO ee ae a ae ad ee 
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TR: ae Oe ee lee 5 eee 
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1A Oe lint elle al ‘ os mittee ia. ate 20 . nebe ame ‘ ae 
Mie ent ena ta AT ku ae IN ek RINE he EMRE a ee eee gt oat nim ce O 


___ GAEL LOSE CS eFetGoSGo INK) $3130¢ 
TFECENX.EQ."YES“ICALL CKSTOR (AHL, IeUT? 5319172 


coal |: 2. |¢ Le ee eae aes ee eee Seer ea neee neem 5 2 A 42 


a mr gS Sh SS SSS gry hye a em, crm 


Se 


i 


mr rr rnp a ry EN | I wee wee - 
a ee —- =) 
pr PD pm ee eee - 


me eee 
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ates mere ee 


QUT INE _FASCAM (PLO SS _.. D8nde: 
COMMON LArlDe SPeTENGAG, FET EPSN,TVIS ,LMUUNT, MINES CFRPE, FS fas, £39, 27345, 
——___L_ATI ME TELTPST .TRUNAORD eF MASS es TMA DMKY, EE 
2 SFC2) oF SSF(2) ,PCACK (2), 7587. 
aT (Aa 4 ». SHOTS(5 », (Ke 5 SHOTS , : 
COMM ON/R EEO JOAY1L  XINX( 4) -ICARO(20),24AP MCR 332 99° 
COMMONJO ATA/FPS (052) oi SEWS (53 02) pe AFOS (22) pOPOS (6) S7MERMI25, 205 1 7759" 
L PSN (69252) -PLUCLS) KEY (1 72) 27241. 
_._____DIMENSTON FAT CAS (3) FOCAS (3) FLISS(32.2.2) 2 = I VE 
OIMENSION FATOEN( T9,FPOEN(3) .CEPTH( 2) : 03253. 
NATTA (FATCAS (I) [2 V4 0 8650289 2s 332 76° 
CATR CFPC ASC ID oF eto 307 40s 095 20/ 93235¢ 
QATAR FATCEN /.-0020-3h0-99%/ 332136C 
Oats FPOEN /-704- 0035.37 372972 
ATR eT ea ee Sh sO eT 9S TS 
100 FORWAT (~ NUMBER NOT WITHIN fOCT EINE BOUNCARY © TRY AGAIN™) 332¢47 
P ect Tye FASCAM RY’ 132092 
CALL REELS 172129" 
Remtercene  <_ E oL, ) S Seeeeee eee ge ee nna a a a 13211° 
TF(IT.€Q0.9993G0 TC 129 93212" 
____._LFITL.GE-L ANOLE LE-39G60 TO 130 pee ot Ue ee 
PRINT 160 peelee 
PRINT *, = GEMME 2 ccs dink een nce LENT ER Y aie nee 
PRINT @ 2” SLUMINES co cece ccc cesses eseses eG Nick i hon e207: 
GQ TO 129 37214: 
__130_PRINT *,"ENTER MINEFTELS FRONTAGE (raxe 2039000" 3 darge 
CALL KEEQ4 C3223- 
FOOMTSXINX(1) GI221° 
IF CFRONT .GE-LO0. AND FQIONT.LELOI09 C.9GO "9 149 Agee: 
ic LS lee | | RA aD et See ee ee CREE + SS 
GO TO 136 13226: 
_. $48 CONTINUE _. 53225 


~ SHOTSV (16,— 1) @SHOT EV (15,1) OLFATIENC IZ) CF PCEN(I2)) *GePTH(Ll) ®FRON” 23226: 
PRINT *, “ENTER FRACTION OF ME NOT SYPASSEG 3Y ATTSCKES (MAX 21.9% 932277 


CALL REECS 33228: 
PMPYBYSXINX(L) 63229: 
IF (P MENG Y .EQ.9999GO 79 153 02239: 
___ _ TFI(PMFNBY.GE. -DeANOPMENBY.LE.1L.1GO TO 160 geen ae Seed 
PRINT 109 Sere ge ee ae —33920- 
150 PRINT ®,“FOR EXAMPLEt O. PEANS ALL OF MF CAN 3€ 3YRPaSSE9* 93233¢ 
PRINT *, “OR t. “EANS NONE OF PF CAN SE 3YP4ASSEC™ 2%2 %y- 
_GA TO 169 _ ate 38: 
160 FROBYSFRGONT®PMENGY 13276: 
__PRINT 176,F206Y 93237: 
47G FORMAT( ENTE? AMOUNT OF TRAFFICASILE TERRAIN (*,F 9. Ce 219909). 19°13 274° 
1) 632 39: 
CALL 27EED4 33263: 
BSS coast ____Me110 ed os eee eee 


Saeed 


r 
* 
’ 


TR BX INX(t) ; ss e4ts 
IF (TRZONE.GE -FRORY. ANC. TRZONE nL. 1006300.960 TS 28¢ c3242°: 


PPINT 112 —____.____2 3243; 


- ro 160 3132445 
OF FOS ENTERING 4F (Ma&x2z.5)" 

aac REE OS J3266C 

LY GD Ab 9 Ee ec ee ae ey we 0 A 

IF¢s eGT.0.-AN0, F,LE 225960 ra 190 s £3264G 

_____ PRINT t00 : eee ___ 3324693 

GO TO 140 132693 

PERS OVaFFOSY/TRZON 33251¢ 

CO 2650 K21,32 132925 

TECELMY( KDA) -PLOSS (K £442) .46-0.9160 TO 25¢ 13253¢ 

TF (K «LT. 16204ND KONE. 3IGO "CO 259 332545 

___ IF (K .EQ9. 3. AND. TMOUNT.EQ-2)60 TO 250 ee lS} 1) 
TF(K.NE.3)GG TO 200 332663 - 
AXILL2 FEFCOV® (CELMT (3, TA) -PLOSS (3,5 A, 2 I SEAFOCAS( 27) 932579 | 

AKILLSIFTX (AKILLA10.¢.53/10.- §3258C 
ge 8 8 ng ee ee at ts pote ts gts an ee oe a, 
290 AKILLBPERCOV® (ELMT(K, IA) -FLOSS(KelAg2)) *F*FATCASI(TI) I326c¢ 

__.__ AKILESIFIXCAKILL*10.%.59/1050. ee eer 4.) 
ALOSS(5,KI2AL OSS (5S, Kd ol FIX CAKILL OL. +O CLISPACK(T A) 33262: . 
PLOSS (Ke TAet) SPLOSS (Kp Lhol? “TFL MCAKIL LO LG oe ISL / 3G. 132632 

TF(H.EQ.1969 TO 210 J3264° 
CLOSTSAKITLLE CREWS (K-41 2, LA) Q3265¢ : 

GO Ta 229 33266: 
_ 240 CLOSTSAKILL*2. QT267°2 - 
220 Sree ere et i cereco ts ck eer eeseeetae A) $3263¢6 | 
Ld ( A 2PL OSS { )» ¥( *10.¢+. ) ° 32695 | 

PECL MOUNT EO LIGRA TOME ERD AND URE ECG TO 259 132765 

AKILLAIFIX(AKILL*60.%.5)/10. 032722 

230 00 20u KK23,1¢ B%2726 

TFI(E LMT KK, TAY —=-PLOSS (KK, TA?) .£0.9.1GS TO 2460 = tae, C3273¢ 

ALOSS (Se KKPBALOSS (5,KK) TEI NC AKILL SPL TOKKD EL OL e. CLI PACKIIA)D 13276: 

PLOSS (KK, IA, 2) SOL OSS (KK, DT Aot) HLF IXCAKILLP FLT (KK) M2 .¢. 9711/1), C3275 

260 CONT INUE 232766 

250 CONF INUE neserrs 

TF(TRUNEQ.1)G0 FO 358 i aaa 3727832 

DG | 5) HES oc Ree Cs - | 

00 348 «21,32 ss23G. 

AKIL LZ2PL CSS (K,TA,1) 272822 

TPCAKILL hee 1IGO TO 340 J3¢%2° 

ITF (K .GE-2-ANDKLE0151G0 TO 279 ee TEST 

IF (K.EQ.1)60 TA 260 3t286: 

CLOSTSAKILL*CREWS (Kot 2, TA) _ 232886 

GO fa 2790 >32a62 

260 CLOS TSAKIiLL*2. ete47% 

270 ITFCINX.EQ.-1)G60 TQ 389 73234°% 
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pe = pe eh rey ee eee eS + 


26c FORMAT ("1") J3294C 

PRINT 290 u3292° 

AT ore 4 ope f 

PRINT *, “T ATTACKER LOSSES oa 032940 

——_—_ PRINT _4.°f _ ITEM LOST cOEw 5" RR GSE 

PRINT 290 932963 

3297 

300 ITF(K.GE.2.AN0.KLE.15)60 TO 329 33296°¢ 
eT f 

320 FORMATIM LT 9SKeI2eF Ge ig F7 ole 3XyI%) 2P3VGE 

re Otc 

320 PPINT 330K, AWTLL . I33G26 

oe Xe! eT 33933 

340 CONT INUE 933046 

TE IT NxX.EG0.9IG9 70 359 232056 

PRINT 290 J3306- 

PRINT *, ** 282 22 E88 884222832328 2228224" a33c7"* 

PRINT 289 g3IC9C 

350 TFILRUN. €0.1) PRIN” ©,° LOSSES TC MINESTELL PRINTED HEFE™ E3997 

OQ 360 X21, 32 333200 

2 133112 

PLOSS (Ke Jo2)BPLOSS (Kode 2? CPLOSS (Ke Jot} O33129 

__ PLOSS (Keto d2 S00 LS 

360 CONT INUE T33Le~ 

scans a a 

ENO 03316¢ 


LS Te lh 


aS 


aa aor-oteiaratin, ce ~ 


ree marae er ee oe ays Le : , ms 7 a ee Me 


- a ee a — 


___ SUBROUTINE. CANNON. J3318° 
COMMON [4, 10, 2P, LENGAGs ITERRN: IVIS eIMCUNT oMINESS CFOR,FSFOS, Fan, 333519° 
TLME st FIRST pe LPUNe NC IO oF PASS AMA RKV es GV 
2 SFI2Z) FF SSF (2) pSACKI2S)» S332iL° 
3 ELMT( 5052) »ALOSS (66, 66 ) » SHOTS(55.2), CK ILL(S3, 2)» SHOTS V (55.2) 43322¢ 
COMMON/REED/ JOAY2 oXINX( 4) -ICAFD( 20). TAF HCR 03323¢ 
COMMON/OATA/SFE 99 (8002) CREWS (5352) eAPOSE(1L2) OPOS (CAD p ITHESH(2Ge2)5 13326: 

1 PSN (6.2023 ,PL° (15) KEV (L722 9332¢ 
COMPON/ONE JLFIT( 35) pSRRAY (90) »MYSUF (2026) 00 Cd Decbe seas _33326¢ 
LASCENE,ASECT 333272 
OMt ON /T HR LMISTC3S de 8190) , LYBUF (1024) ~3328% 
COMEONJEW/ECOGR (226) -IC CUNT (8) eISMOKE (21s FOSHO (2), PCSS4(2),ae8 502) 533292 
UC ool ht ee ee age en ih] __g33zac 
OIMENSTON T3AT(L3 02) » SUP (4), LSHOs (1302 De FOF (5,2) ePRE@ (2) MBP (55) 83331: 
L PLISS (854 25209 HR (2) s PESSE(2) RCE L3 e302) PMC L392) PKILL CLE» YTI32e 
2 COTLEV(G) sTGTEL7 e205 SRERARL Zs 2 TeROKC SS 2h FCT CLS et Ped eMC 72 04 S3323¢ 
-C8 (2), 76S(2)} EV ¢ ANSF (2) 833 356E 
D.MENSIAN ISRTP(2) 23335: 
QIMENSION PCM4(2) pPICM(S $02) pICM( L392) POMEL CZ) OK (1302) 53326" 
PEAL AW, MNTH I33I7z 
_ ___—- REAL mmr OFB (27) ee fr P15 
OIMENSION TEMP (65123) 9 TEMP 3( 3417) 33339? 
CIMENSTON TEmMP2(6 23) TENFS (3.27) 333432 
Cc 133417 
C ____ DATA MAPPING INDEX. _ 13342: 
QATA (MAP(TI) Tet, 55)/ §3343° 
_____ Lod abe SP Go2eeedodeSeteeeee Sei 9*Se CS? 
3 9ySoAeAelDeL Dold eA eMe ePe7olLOolletle Ss toilelletar 23345° 
Cc G3347; 
> INOLTRECT FIRE WEAPON SUPPRESSION COFFICIENTS. 233482 
OATA (SUPRII). L2t, ©) /3 52,5 3%2. ee 33349: 
C 93382 
cau LL SPENMS(3,KEV 527100? 33352: 
C POX TASLE 43352° 
CALL REACYS (3, P0K 4110, 36) 33353° 
Cc CeGRAOE POK TABLE STG 
Cc (IS? §$§ =~ REO POK OF 8LUE) 33355: 
= =e OO 9999 2805230 8 ei i 
Cc COKE I) 2POK(I)*. 2 93357: 
9999 CONTINUE 37358: 
Cc e3xzegc 
C ICf FRACT JONAL OAPAGE TABLE 233602 
CALL QEAOMS(3 FOOT 510637) $3361: 
Cc peste e os Mate” ho a _ _ 233622 
€ FRACTION OF ARTY PER SUPFOR? LEVEL. 03363: 
C CATA (CBTLEVIL) pL22 6) /e 3590 675 bop 12960 ce IG be / 23364; 
CATA (COTLEVCLT) pLELe SPS el Goo 345 oSioltod ol oGls 2.94/ 23285: 

M-i13 
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re LEAT +21 AOL aid - 
eG -_— 
. . 
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060 FTF(LRUN. EQ. 2) PRINT 2,° INCTRECT FIRE ASSESSMENTS PSENTES HEREM “196: 
INXz 9 04197°¢ 
—_____ CAU, LOSS0639580t058e INK) BE 
LFCINX-EG.*NO™IGS TO 1070 34199C 
CALL CKSTOR (AHL, FeuUT) _ 062390 
TPyUr sei 2462922 | 
AHLis “INP = 042022 ; 
CALL CXS TOP (ANLI CUT) 142030 
—_.__ 90 £965 2810076 RI OS 
£065 AM(TZARRAYV(T) 04295) 
___CAuL CXSTOR(CAHL» TPUTD RGEC 
1070 ENO 242970 
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USROUPTLNE CLGOPCO4T eT ePLOSS MoT FLG) EC AE I 

COMMON FTAsIDe IO ce TENGAGe TT EP IN, SVIS ep IMOUNT MINES, CFOS, FS Fre FRR, Aae2yic 

TIME sTEIRSTsIPUN,NUCD FE PASS INaxKys 

2 SFC2) FSS (2) »PACKC2), : u4212% 

, | & * 

COMBNON/REED/JOAYL  XINKC 4) ~ICARN(20),7 AP MOR 34214) 

—_.__COMMON/D ATAZF PS (80 22) sCREWS (5502) 2A FO S622) s CPOS{HI e SPME MISS old, J24215% 

1 PSN (602023 oPLT(IL5) KEV (2 72) 34216¢ 

_____ GOMYON ZEW/PCQOGR 6224) » TC OUNT (8) sZSNOKE (2 Je PCSMOI2) . SCSEM( 21, 980627) JO227: 

1 »NMuUC2) $4218? 

b rc 

COMMON/FCX/PREC (91, OEGRAO (5,5, 23 942238 

_____ OY ME NETON OP ESA( 8) PONSM(2) 0 FF EA 

OQITMENSION OUST(S, 2) s4222°% 

______ GATA ChOUST IT odd 0 L8125) JBL 220739 0G 2 Gar eS eHO9e/s EC RL 

BATA OAS 3% 78 5 e620 0 8 10%. 4442909 G/ 142248 

4 2 1/24, 7h aad *,. *.6i/ 54225: 

G DATA (CPA QCT oS) eZ 2155) eBt oe We S3 po 735 oe Fen e I7% 9 IK, 842263 

Cd 6 B30 eo 732 0 932 6960 oIGv oh Gs obeeed7 ped toot tote des PS 

sFt(YvIS.€O.t) IVISst 64e230 

____._LFAEVES-EQe2eGReIVISoEQe 3PIVESS2? aL 

IFCLI VTS. £9.63 IVISs3 302301 

26 fe23ti 

TF(TFLG.EG.13G60 TO 105 962326 

SS Ee eat ps hg oe ee ce ee pS NM et tes te tn See 

IF IZ TERON. ED 01 OR.ITERRN, £9.2) OC XPS. 86 146234% 

______TFULTERRNs EGe TOR LVTERRNED-4PPEKOZ.S OOS 

_22 342 1§¢ 

2 162 37° 

cmss0. 342 38° 

QC. .__—-«._sCMECK _FRIENCLY FARGZAGE dE IDI 

FARDBOUSTI(IVIS, 2) 3426) ¢ 

TF CARE CRD be SGP FARQSOUSTISVIS,3) = 

TFCARO CLI LT e2LePFARE 81, 14262 

¢ CHECK THREAT BARRAGE 14246%° 

TaaDscus*(IvIS. 2) J420KC 

TE CERO CID LT AGed FARQSOUSTCIVIS, £2) 2 SE 

ITF CAROC J) LT 21.) TARC 21. 742463 

eee USE QOMZNANT THEEAT __ 52672 

acus Ta@aco 24 268* 

FIT A TeoFARODA T2T ar 74 249° 

C 342592 

oS 3GO BOG TRS t ee ee ee 2482825 

PENS MITEL) 81. -PCSMO CIEL) DOL. =PCSMCIS-IELI/2. 2 (14. -PCSEM(IELIY © 4262° 

_400 CONTINUE. 42835 

G9 70 130 16254% 

65 MAaXz 2°S4T 14258: 

120 PRINT *,* IS AN AERTAL DESIGNATOR IN USE?™ 14286" 
Meo132 
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cn RR Cn 
est 34254°% 
____ -DF CINK NE.WY¥" AND SINE NEL °N"PSS2 0 FE 
TF (3S .EQ. 22 PRINT *,"INCORRECT ENTRY™ £42600 
F ¢ 1690 TO 302613 
2120 PRINT *,"ENTES @ CLGP MISSIONS TO FIRE (mAXa™,MAX,”) o* 0% 2625 
GALL EELS 362630 
fC MaRINY( 1) 642640 
__ITF(OM. GT PAXD PRINT *,"700 BIG. CH RESET 70 MAX? _ 36265¢ 
IF (C MGT MAX) C¥RMAX 162669 
FIC MN. oC ANO.CM.LE.MAaYV) RETURN 3@267C 
PSINT *,“INCORRECT ENTRY ~ TRY AGATK™ 262686 
_._.. GA F. 342690 
£30 PRINT ®,“ENTER CLOUD WEIGHT > (1-5) “ 04279C 
A Db Ou2r7s" 
TCHs XINX (1) 462725 
F(T CHL 7.0 OP eICN.GT.5S 60 D 942736 
TF(TCH.EO.9999GO TO 150 162760 
Or i i Oe OU 
962765 
wer ) ORINT *, “ZNCORRECT ENTRY“ 62778 
150 ORINT *, “ENTE? O IF RANGE rs LESS THAN 1600 4° 34274C 
PRINT *,°ENTES F RANGE 6Gge pce 262792 
POINT *,"ENTER 2 IF RANGE i 2000-2459 262993 
_____PRINT *,"ENTER 3 IF FANGE TS) 250022959 mE 
PRINT *,“ENTER &© IF FANGE IS 3000-2 t4c9 6” 342820 
PRINT *,"ENTER? S IF RANGE IS %$89 » OR MOPE™ 2. er 1 y4. 61 
Go TO 134 62360 
160 CONT INUE 042350 
C 94256. 
eee! Lh, 1 pee ee ee ae eee ee RIOR EME 1 AT 
CO 170 K216,32 J6238C 
_ 178 FOPRFCFOEL MT (KLIOOR( K-74 S 1 SPONSMILD __ 846299 
IFIINX.EG.°N"IGO TO 140 j6290) 
00 1A0 K864,55 162910 
TF (€.EQ.52360 TO 180 0%292- 
_FOPSFOFOELMT (Kel) “OPERA (K-67) 7/2 2938 
“280 CONT INUE SS 9be 
£90 SCONE INUE 962953 
Cc 362965 
C READ CLGP PK ANO DEGRADATION FACTORS (REC, GEGRAT) J4297° 
Cc TU29R5 
_____ CALL OOF NMS(3 KEY ot 7459) 2995 
CALL REAOMS (3 PREC, 59,35) 563097 
—_ CALL CLOSMSC3 ee STAT 
TS21 (363325 

LFIINX.EQ.“V"ITS22 j&35% 
ITF (ST C4.GE.L AND. ICHALE. SIGHOEGRAD (6-5 CH, LVIS,IS) ratio: 
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IF UK 0ST. 32 0AND KET 8IGO TO 230 943980 

EQ. “NWA 32) 543395 

TEt(K.E9.52960 TO 230 743100 

_____ IF 066. 481GG TO 200 ES 

OAVE OA (K-15) *SCNSMIL) 943120 

200 TF IK .GEeGAIGAVBQPERA(K@479/2 0 EL SE 

FSSOREC( ud 963169 

F( .GT.17) FO 2PREC(S) 363153 

IF (K .6T. 20) FO sPREC (7) 9%3169 

LE CK E9023 OP KEG e 22 ORs Ke EQ e 26 00Re KE De C8) F JBPREC (6? 043179 
ITF (K ET. SOP FO eOQEC( S) O4329¢6 | 
_.__ TF (W E90 31008 Kr EQe IZIFCSPREC (6) OF DC 

IF MK GE. 66) FO SPREC (5S? 34320C 

PeCN SP ) 346322¢ 

TFECINN ED. °Y™ AND OK eGEe 4A DPROENSEPREC( 9) G4322¢ 
Sima ER OR ON nn ahi ee eee. 3 

LPSN st 14526° 

cons SOU eRQe LOU LOS Nee ck NOTE 
543265 - 

4 * ? & 327% 

RSCUFELMT (KL DOOAV/ ECE 393282 

AFUE LG eANDKLESS2IRS22FCNSHCUD __ S&S 290 

C™Ss CNS o@ 0463306 
_RBREG*PEXP*AOUSF ES CL 

C  S€G2a0€ FOR Fase TarGeTs 34332° 
¢ Req? .7 243336 

Cc J63 349 

TEL NT AK sh) 90 AVCOSN ITENGAGS TPSN 2) 7 = = _ 343355 

TF CINK EO. *Y* AND oK GE oe SIITBELM™ (KL ISOAV 143 365 

IF (FO/T.GT2i2IGO TO 270 _ 34337" 

AMILL? (1 9 €1e -FD/TIS* (2.59) 47 —*4u3385 

OKILLAIFIX(AKTLLF10.%.5)/219- 24339. 

C 963407 

C S2ANCH FOR PERSONNEL TARGETS 363422 

TFC. EO.39G0 FO 220 V43s2e 

___ LOSS 169 9K 12 LOSS (69, KD OFT XCAKILL 910 066 GELDPOACK(L) 043435 

PLOSS (Ky Lol SPLOSS(Kobot) OIFIX(CAKSLL® 10+. 0029/13. ne 

16365; 

ACCESS CREW KILLS. Y43665 

___ BF UK 5 GT o 12) ALOSS (49 2IBALCSS (4992) OL FIX CAKILL SCSEWS (KS eb IO LI oe COGTEIN 

2021)*PACK IL? T4e34uas 

LEK STL ZPPLOSS 62 eb ot) SPLISS (Sohn t? OLEIK(AKIL LS CFEWS (KeLZ, LNA 83 6 GeI492 

ce.001)710C. w435aC 

r OR.¥ @, INOUMT.E9.4)GO_ TO 236 Q4751: 

IF(L .€Q.20960 PO 230 347527 
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C 14354: 
___._ ACCESSMENT OF DISMOUNTED INPANTRY WEAPONS, sss SSE 

210 CO 220 KK23,15 314366¢ 

F 3] 1 -PLOSS (KK ) o) TO 6 343672 

ALOSS (694K) SAL OSS (49, KK) OLELIX(CAKILLS PLT CKKIALI. oe FOL) FOACKIL) 16365 ac 
PLOSS(KK ob ph) SPLOSS (Koh LP OTFIKM(AKILLOPLT(KKIS1Ob TIL) /20. 943594 

220 CONT INUE 2636C: 
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ere cemme | U1 RRR sei a A er EN ne DE, . 243952 
Cc 1%3665 


eh ee een OO 


A TG 


- re eee ee ee. ee 8 


me = ee eg ee | 


ae eS 


re ee 5 gg pe i a oc re = wR, 


0 I ee 


ated esti cndifthsn— hate, dont 


i ie I | A gg te A a A Ne eA me MRR Sy ma 


° td af . ae ome + - oe - . —- — ere 
°* 
e - — ap. —- 2 -_ 
] 
rj 
e 
_ - 
a 
e 


See reg TN en ll 
COMMON LAs IIe TF eLENGAGs LP ESONG TViS, TMCUNT MINES CFOS ,FSEP2 FIR, = 143792 


—___LATINEs TFIPSTe TRUNANCREsPMASS eT IAXKV es OO PTS 


2SF (2) ,FSSF (2) ,PACK(2), 34372 

H e x SHOTSV 4273° 

COMMON/SREE O/ JOAYL oe RINX(4) -ICARS 126) ps IAR PCE 36374606 
QN/OATAZEPS (6002) CREWS (53.2) A FOS612) oe OPOS (6) IT MER“ (2992),  96375E 

1 9$4(6.2, 2b oPLTCLS) KEV L72) 143762 
LOMMQN/ Ew /PCOGR(2.4 A) « UP Tal ECE M12) 2 822 (2) 963772 

2 NA {2) WI74AE 

f 4 { 1 ACI 6 379° 

e ASCE NE ,ASECT 94 383C 
_____ CAMMON/T WO/TEIT (C35) QRRAY (46) eNVAYE (A026) YS 
POMMON/T MREEsSTHIST(C39), 44190), L2¥YS3UF (2924) J43% 2° 

OB PMENSZON CEILS) 2 38 32 
DiMENSSON TRRAY (2) Q4394¢ 

FOUL VSLENCE LARRAYs TRAY) 14385¢ 

CATA (CIE (CI) 023205371990 0 o Se eee eeSeles 3B 3AGS 

ee GR Gn a a er i ee 
NMUC J) 20 C4388 
Serene? 5 HPS SS ee oe OE (ee eee a NCO ce ey ne ee meen Creede. 7. Ne 1a 
Ctl, Jest. C6390¢ 

M )zQ,. 4791° 

TF t(ACZNE.0.)60 TO 189 34@3392° 
 Ncirn NE Ne ee la ee ar ne nt De rc og ss Sg oe ee 

t1C SRINT *,“ENTER CI MANEMONTIC -* G4394° 
cholate ae Ole © OO, 0 ARg 5 ce en a ts oe 
120 FORMAT (2419) 543963 
(aci9) *4&3a7* 

IFCACT NEO. ANO.ACT.NE.ACIOIGO TO 189 742943 
____-__LFIACTeEQe0oI60 TO 12390 °#8&828=—=—h—h—hmh— CO ODT 
ASET T20. 66395 
PRINT 139,ACT SS unr ICETCACCT" 77" t TCOETI- 1 ANCE QRH 9-7 Re OPTS 

~ £30 FOPNAT(™ YOU CANNOT OG GO ASSESSMENTS FOF CI ”, 41d} 34432°% 
AaCisy,. 046332 

C 140 POLY *,"00 YOU wrSh TO RES ET CL NMENCGNIC? = 5 oes ut 
G@ CALL REECACEYND OO SE 
Cc TFIITYN.EQG.*Y¥"IGO *O 2:2¢ v 4656° 
GCI NUE. “NWIGQ TO 4329 8 838=3=)SE sess ee TE 
Cc PRINT SIC 3462587 
° ra * bes 9: 

150 SORMAT(* *,LA1L0) , 346152: 
_____ AFIZET ao, te 
69 TO 199 246122 

_260 FORMAT (240) Ce HTS 
170 FORAATC™ *,Lat) T4GLeF 
146415$3 


190 PRINT *,"ENTER SECTOR NUMSER <” 766156: 


perme 71 UR) 1 9d, Se eae an ga ea ee Oe SN eN ROEM 7 6 
ACES TAXINX (2) J46148C 


TFCA SECT G29 » ANC ASE CT 01.€.99999)G0 TO 399 = FSGS 


POINT *,"“INVALIO SECTOR ENTERESI” 9642090 

g& TO 340 944212 

Cc 344226 
190 ZSEEQOSACTOASECT ATE 
CALL PANSET(ISEEO) 244263 
fetes EP U8 eh th a i et ee 
LTFCITRUNEGeL OR ITRUNWEG. SITREGYA“Y™ 8464 26C 

CA CLF AR( LREG™) 344275 

200 PRINT *,°777 9 P * IT ON 772% 244260 
___ CALL REEOG® eS ee SN; 
INXS XINX (4) 94439C 
___sOrdLF (INN .E0,999)G60 TO 210 = ET 
SPCINXGE.Q-ANO.INX.LE.90GO TO 22% 1464225 
PRINT *, “INVA PYICN ENTESED" J44 236 

220 PRINT *,“ENTER 9 TO PROCESE wITH 4SSESSHENTS™ 544349 
= PXINT *,"*  ~—_ 2 TO LIAO UNGTS ZNTO SECTOR” iio an ee a et, Ro 
FQINT *,° 2 TO SPEMOQVE UNITS FRCX SECTOR” 244 3E2 

___. .___ PRINT_%.*. 3_70 G9EATE A NEW UNDT™ LO 87E 
POINT *,* & TO AOJUST WPNS IN & UNIT C44 38C 
PRINT ¢,% § TO ATTACH A UNIT TO A NEW PAPENT™ 9 && 395 
POINT *,” 6 TO OLTSPeay a UNIT” 644630 

PRINT s,* 7 TO CELETE aA UNIT FROM FORCE FILE” __ Jueel: 

PRINT *," , &8 TO CuMATAE UNITS™ 344427 
PRINT 22% 9 TO AUTOL IAD SECTOR” eee 144637 
690 70 296 matt. Ts 

220 ITF(LNX.E9.0)G60 TO 1199 946657 
60 FO (290 7604479. 381,857,880 680.2904 230), INK 5 4446- 

Cc ee 9 44a7. 
c ae Ta 
_ 230 POINT *,"L0A0 UNITS INTO THIS SECTOP FRC P2EVIOUS CI?” 344499 
CALL 2EENACINX) C4459C 
TFCINX.EQ."Y"IGO TO 240 74451° 
TFECINX.EQL°N"I1GO TO 299 344525 

_____ PRINT 3802 : ehh ok he oh ete ee oe 
Go To 239 24454° 

Sects Be Seeded ie char wt lt te de Tn Ss ce 8 th ted OO 

ene thet 164542 
CALL OPENM(LFE IT,3LI“-O.LLA) 64577 

256 CALL wETNILFT* ARRAY, ARSAY(1)) §445 9° 
_MaTF ETCH(LFIT, 2nF ©) Si ae A ee hh ei TY en, ee Se 

IF (4 .E9.10038)60 TO 270 1444507 

___ _ _SFURRR AY (6) EQ ASECTe ORLA SRAY (4) EQ te *ASECTIGO TI 260 = HG 
60 TO 259 J 44522 

¢ 344663: 
260 ARRAY(S) ACI 544 46° 
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e TT ARRAY »FIDsARRAY (2)? Ceb4572 
cPtaRaay tel PacascetrinestNers 344660 


t 344645 
CEM( LETT 6469C 
PRINT *, INC,” UNITS WERE LOACED INTO THIS SECTOR“ 046670¢ 
i a 
Cc 1447 29 
j4o73o 
280 CALL COMBINE 346768 
69 T9 299 14646762 
C 0%4762 
a a a i ee TS 
290 PRINT *,°ENTER PARENT OF UNIT(S) TO SE LCAQDED INTO SECTOR o-* 9467 80 
__.__ CALL REETACARRAVELDD =F PE 
PARE NT SARRAY (1) 34689" 
¥(7) 299999 aunt? 
CALL VOENMILF IT, SLI “9 LL? 944A2° 
_._____CALL GET ILETT sARRAY ARRAY (2P090,26) 8=—S HTT 
LTFCARPAY (7) .NE.99999.)GO0 “OO 322 6446866 
_____ PPINT WO,PARENT ss HSS 
300 FORMAT(“ UNIT “,420,% IS NOT GCN FCRCE FILE!) 3444862 
a = SEATS 
¢ 2 46BAE 
I rt Te ee Se EE eet ee ee Oe PL ee 3, SL 
320 PRINT *, “ENTEX UNIT I9 (OR ALEY =” 24690C 
GALL, REEOSCUNZT) 
34492¢ 
FLAG: 4693. 
320 IFCUNIT.E€Q."ALL“IGO "O WG 146964 
_TF(ARVAY (2) -EQUNITIGO TO 340 146982 
~ 330 Cau. GETNCLFIT, ARRAY, ACRAY (13) 344962 
MaIFETOM(LEET 2UF8))——“‘CS™S*sSCSCSCSCiCisiCiéi GT 
TF(4.EQ.10081G9 TO 260 344987 
TECARRAY (13 NE. PARENTIGO °O 359 §44399C 
60 TO 326 945 79° 
a ae ee ee ee ee a Re ee a ee Oe I EO fe i 
340 ARPAYV( 4%) sASEC~ 545c¢2C 
_ARPAY(S)8ACT SET 
TFLAGS1 $4S54C 
A REPLO(LE TT. ARRAY .900,49RAY( 1)? 265252 
60 °O 330 8665 96C 
a ee a ee ee ha 
360 LTFILELAG EQ GIPREINT 300 UNIT 64&§34° 
_ 360 CALL CLOSEMILFIT) = ___ busned 
379 PRINT *,“tOad ANOTHER UNT T Pe C4§i9c 
ry a¢e Xx &Si1° 
TFCINK .E%."*Y¥"IGO TO 290 36512° 
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eRDe"NW IGG YO 290 Ll, GLE 
PEIN? $400 34516: 
PA 5 * SE ah» LER 1 i: Re ea ee er rem. ko 
C 2651266 
365372 
380 PRINT *,“ENTE® PAGCENT OF UNIT TO SE ALJLSTED -* 9651482 
A 08 (ARRAY(1)) $6519 
Cc : 966205 
___ PRINT % “ENTES UNTT [eee GAD 
CALL SEE CACARRAY(2)) 04522¢ 
C 0465 23C 
APRA Y(7) 290999 0465266 
___ GALL OPENMILF IT IL I—-OoLLR? 14525: 
CALL GET (LFI® ARP AY, ARRAY (1)) 36926¢ 
_____TF (ARRAY (7) .EN.90909IGO TO 669 FG UTC 
PRINT *,“ENTER WON IGeNEW OTY"-de0 WHEN DCNE * 3465 28¢ 
390 CALL EEC 34529: 
Meee INX( 1) 8 &§39- 
AJSXINX(2) OS EE 
IFtsm.€Q.0) GO TO 420 94$32- 
__ LECMMeLT o0eIR MM eGT.80IGO TO 419 _ 9 8$335 
If CARGAY (NMOL 0) OAGeLT2021G0 TO 409 94534: 
&aRh ¥ (49619) SERRA VY (MOL 9) OA 3 &535°* 
PRINT *, “NEXT~“ C65 %6- 
69 fo 39¢ | a _ 06537: 
GC PRINT ®, “ENTRY PEDUCES © WEAPONS IN UNIT SELOWZEPO ~ ENTRY TGNORECQES34° 
9 __ 365397 
60 TO 390 16S549° 
610 ORINT *,“INVALIO ITEM CINE - ENTRY SGNOREC!~ 16561° 
60 fO 390 04$627 
_ 426 TECTRUNEG.29GG TO #69 OG" 
SBARRAY(3) 165 Ge: 
____._VEFF 20. se a a eo 
00 e3¢ I2t,80 J4$46" 
IF (ARRAY (T4219) .LE.0.9GO TI 436 1456 ?- 
UERF QUEFF OARRAY (T9210) “FOS (TU) 16566: 
630 CONPFINUE | eee oS 
If (ARRAY (6) .€0.0.960 6 636 # ©... 8e6$s: 
VEFFSUEFF/AARAY(6)*209. ee OL: 
B35 ARRRY( 49) SUEFF ez: 
Cabs VEFLCILFIT, ARRAY, 9CO,APRAY(1)) 965S3- 
ueG@ CALL CLOSEMILETT) 10556: 
__ 450 PRINT *, “ANYMORE UNITS TO CHANGE? “ eS iL 
CALL REEDACINX) —.  t 94686: 
TECINX.EQN.79%9G0 7O 3900 ee, 5 O57? 
TFCINX.E%.°N"IGO TO 200 748598: 
PRINT 54559: 
60 TO 684 36863: 
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APRA Y(79230. 365620 

i nn i GEE. 

Cc 94566: 

a™ L & f 
SRREY(1)2°SREO™ 04566¢ . 

Jat 94$675 

8G PRINT 490,KING 065683 

690 FORMAT (" ARE THERE ANY “.Aue” YNETS TO CREATE?™ 54$690 

CALL PEECA CINK) 645793 

4§7 7° 

ITF (CI NW.EQ.°NWIGO TO 676 045722 


CO $25 INX311,.90 fuS7ac 
_ 520 AraA VCINYI 39 2 = OC 94579C 
ORINT ®, "ENTER PARENT UNIT IC o* 345400 
CALL REECE (ARRAY (LD). 9465422 | 
NGSA2> . 
PRINT *,"ENTER UNIT IS =" 365935 
CALL REEIB( ARRAYC2)) 145460 
_ $30 _ PRINT “, “CREATE BY SFC? S?™ 26S85C 
Cath SEECACINX) 946546¢ 
_ LFCENX.EG."¥"°3G60 TO 619 ye _ 365873 — 
TF (ZNX.ER. "NW 160 t0 $40 24S68C 
PRINT $0? 365490 — 
6o0 ro $3¢ £65902 
__ $60 ARPRY (6) 29 ; 96595 
PRINT ®,“ENTER WPN TO0,0TY<-C.0 WHEN ONE * 2459.20 
_ $50 at, REECsS eis he Faso pce oan ap ase ethene te en eho ctl ase! Sede te yale Oe 
Mase INX(1) 245940 
A yex Thx 2) 26595: 
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___..__PRINT_4» “NEXT -* __ $992 
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& a 
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______ ENXSBRRAY( JI) STF 
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60 70 623 ne ee ae ee h1-1 5 
650 PRINT 660 ,GARAY (2) 346620 
SRRAY( 3) 20 S46G35 
640 FORMATI(™ €8C “stilt,” NOT ON PILE") " Cd WR 
srs cs UTI TS g en a SOE 
6c TO 620 26666: 
ee kt a ee ed ea Oe 
670 If (3.E0.29G0 70 290 16644¢ 
ee |) a a a ee em LL) 
ee T6650: 
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* 680 parr So “ENTER PARENT OF UNIT(S} TO BE DELETED -" a 4a 3c 
CALL REETS (ARRAY (2)? 26636: 
CALL OPENMILFST oSLI-Oo2L2)? 346557 
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CALL GET (LEST -APRAY  ARMAY (29505203 : 34658¢ 
2909091G0 70 €96 Os OS 9G 
PRINT 390, PAR ENT $6660. 
C 346625 
_ 690 PRINT *, “ENTER UNIT 19 (OR Anty 9% HHT 
CALL REECE CUNIT? 046665 
_____..__ 9466 5C 
TFULSG20 0%666° 
? wrt “si. “9 ? 646575 
Bae erat ete tate cs 0 7279 146669aC 
Te ARRAY, ARRAY (1)? §4669¢ 
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IFLAG21 966765 
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766 Cath CLOSEM(LFIT) 0%6806 
250 PRINT *,.°ANOTNHE® UNIT TO NELETER™ = CC NC HB AE 
CALL RESOACINK) 6 %682° 
_____ZFCINX.FQ,"*¥99GO TO 686 HH SE 
TECINX.EN.°N79G0 TO 298 9464642 
PRINT f 246455 
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—760 PRINT *, "ENTER PAsSENT OF UNIT(S) "O BE PEMOVEO =" 946499 
CALL PEECBACARRAYV (LI? 36690°¢ 
CALL OPE“M(LFIT SLI“O.LLR) 346315 
P APE NT 3A RRAY (2) 64692* 
ARRAY(7) 2906909  _ 7466936 
CALL GET CLESY ARRAY, APROYV(2)53029) ©) $6 6966 
-_ IFCM@RPAY (7) NE. 909099GO 7S 779 3466957 
PRINT 390,PARENT 36696: 
69 °O 430 966970 
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CAuL PFECR (UNIT) 167902 
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BQQ IF (ARZAY (4) GT. De AY (4 18-7 . FARPAY (5) e7L4ic 
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ne IG Gn en TSS 
00 610 L776, 90 bY ae te 
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810 CONTINUE G4716¢ 
CALL VW PLOCLE IT, AROAY.909 ,ABRAY(1)? 047177 
60 TO 796 26728< 
ea a ee NI Se CS eS ee EC, | 
820 IFCIFLAG EQ.CIPRINT 300,UNIT 34726" 
G4793° 
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__860 POINT %, “BEMOVE ANGTHER UNIT?” Cu723: 
CALL REECA (INK) R47 26: 
ITFCINX.EO."¥")GO 70 760 ae 36725: 
TECINX.E0.°N"1GO TO 270 98726: 
; PEINT 590 }e7277 
; 60 TO 446 Q&720¢ 
a a es See et ee 
Cc Je7 302 
850 PRINT *, “ENTER PARENT IC CF _UNTT FEING ATTACHED -* (Cur31s 
CALL REELS (PARENT) 147322 
Ja7z7ze 
PRINT *,"“EMTE2 UNIT 19 -* 67%: 
CALL FEECBA(ARRAY(2)) 16738: 
Cc 067 366 
CALL GPENMILFIT, 3L2-001L9) 347372 
ARRAY (1) SBPARENT Ju738° 
ARRAY(7) 299999. 14739¢ 
COLL GET(LF1+,ARPAY,AORAVIi)) ©”. 26740: 
IF(ARRAY (7) EQ. 99999.)60 70 £79 I47at: 
Cc a TOPS ee er ee epee a ee ae a Se? oS eee 
PPINT *, “ENTE? NEW RFARENT IC -* 167635 
CALL eta a Sai 
ARRAY(1) 2742 016765: 
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R60 PRINT *, “ATTACH ANOTHER UNIT?” Ce7Si: 
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c OG?T6L 
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sin ae a a tr A TT 
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OT a ee ees ee TT 
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GO fo 1860 344C6¢ 

F (4 EQ. 1008. ANO.IFLAG.E0.0)G0 TO 1160 __ 06807: 
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PRINT 390, PARENT : 348 3S) 
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Tr. 5,°% _—O—“‘(‘(‘(‘“‘(“‘( ‘(WLU ORS? 
PRINT *,"FORCE PaPENT UNZT EFF $écr cz” 04856¢ 
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09 2240 JKINOS2.2 
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Tree TRRAY (2) 34899° 
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POINT 12660 Je ARRAYILISARRAY (2) o SPPC,ICIL es IEFF 14932: - 
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C1360 CUNT INUE 
C NT IN 
Cc PRINT *,"ARTY SEGRAIE™ 
C 
ENO 


' 
4 
aa | 
- ff 


a ei ee 


eo e oo eo. arena -= © mad 
bf} = e 


+ AAAs lao nie sae 


____$yeRourENe com@rNe eee ence TL ac 
COMBQN/ONE/LE IT (35) eARRAY (90) 2M GUE (1924) 518852) -ACT 34979¢ 


_____« ASGENE,ASECT.,YSECT Fs BES 
OLMENSION W(90) a4981° 
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LECARRAY (73 .€9.90909) L224 95053: 
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a ea me ree ee 
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DO 120 Nsi,2 955505 
(nod. 9$9S1° 
410 CALL GETN(LFIT pARRAY, ARRAY (LD) IsCS2a 
MBIFETCH(LFST chr ey 0 NSTC 
TF (# .E9.2008)G0 TO 133 CSoSec 
*Gq TQ t10 050566 
FIRRRAY o"FORCE™ T 35087 
CCICN) 24PRAY(S) cS$ossc 
G$059¢ 
230 CALL CLOSEMILFIT) $$360¢ 
COuL CPENMCIMTST, 3LToOe th A) __ 980626 
AH(LIS"RIT NANES® ascé2: 
Hti2)s SSC53C j 
160 An(e 1299999. : } 05664; | 
CAL, GETILHES Te Am, AH(1) 9020) = ____ 350652 
IF (A (6%) .NE.99999.)GO 70 160 9$366-¢ 
GC THIS CI NAMES RECCROE NOT FOUND <-206 IT TO HISTORY FILE 35667: } 
CO 150 23,90 ere ge cetera ey ome wats aor es S558 8c 
Au(I $29. 35C469° { 
150 RONTINUE SSCS So as LYE 1s i 
; CALL PUT KIMESTo AH, 9G0,4h02)) s$c7i: 
 NOae eee ae ee age ey ee Se eet eG Poe | 
__ Goro so Se oe Pee _____ $c 73: f 
C FINO FIRST ZERO WOPQ ON CI NAMES XEFORE O50 %e: 
£60 NO#0 3$3757 
00 170 [24,90 sere ye 15076 
; @) IF(AM(T) NEG .IGO TO 179 a8 G7F2 
Noe Fa Ves ee On Ng er 35978: 
_____ GO TO 186 ___ 62792 
170 CON? TINUE 35949: 
£86 ITFIN0.£0.4.AN0.AM(2) 060.1960 T2 460 255817 
6) TFCAHEC 2) .€9.%4 DAC TOBANC &) esys2c 
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TE (ING.-EQ.69GG TO 228 W5046¢ 
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WROA SAME 2) 059486 
Pere Sok + Syd. San ne eee a cea eC aE CR REN Ne PR Oa ¢$0492 
190 LF (AHCI) AE CCCT O23. CP COT I2).EQ.0.960 TO 239 9150900 
2 $191" 
WOO2 sAH( 2) £52926 
210 ITF(w1.E€0.09GO TS 229 0$C94C 
i 0 i a ee 
TF(W2.27.03G0 TQ 229 050940 
_____IF (WROLFO.WRNZIGQ TO 612 =F IG IY 
GO TO 39¢ 958948° 
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230 LFI(GCT(2).EQ.2.9GD TO 256 GSis2e 
_____ PPINT 260,CCT | EAE ES eR OID Se aE een I5LE38 
260 Ponner crt MANES FOUND oe frig tede Ate Biehl t “ANC “ALi 051960 
£ sd ON = $1¢65- 
60 TO ar 3$1C6C 
_ 280 PRINT 260,C052(t) ITC 
260 FOPMATI@ FORCEFILE IS AT ENC OF CI *-AL9/ 051182 
_ & * FMIS CL NAME IS NOT RECORCED ON FISTOFYFT VS.) 6 $1995 
“279 SRINT *,"PLEASE CHERK *HAT COnREC” FILES ARE a??acHel.*” 352205 
CAbL CLOSE4(IMIST) §9$211%° 
CALL SHOWCT ISLL25 
______ PRINT 8."PROGRAM STOPPEQ™ LET 
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een a hi aE ee ee 
290 CONTINUE 351166 
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IF (N1.GE.90)GO0 TO 230 3SL225 
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TF (AHC2) NE WRO1LIGO TO 349 J®L 26. 
300 TE(MCL.EO.AHINZ) OR-ACTEQ.CCLILI1GO “O 479 __asaase 
IFIN2Z.EQ.NDIGO TO &60 352 26° 
PRINT 310,CCL.(1) e AMIN) ee 02 7- 
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__320 FORMAT (“ CT MNEMONTO HAS SEEN SET “GO 0830) ss 899 
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ea Og NO a a ee a eee _____ 282 330 
Oo 330 N2ee $i 3c 
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350 AN(e) 299999. ~ 982 34C 
____ CALL GETITMIST,»AM,AM(2)50029) ot 39C 
TF (RH (6) E900 INO Ze 9$241C 

LF ta (6) .NE.99999.9G60 TO 330 3$t4tC 

LF iat?) -EQ.-4RO1L1IGO TD 270 0$142% 
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__360 CONTINUE. _______ 932452 
CALL PUT CIMTST,AM,90%,AHM(1L)) 851462 

Njse 9531672 

60 Fa 300 29244¢ 
_370_ fF tRH(1)-EQ."CI NAMES™IGO TO 38¢ ee cee SED 
Ax(t)ds"CI NaMES” ~ 9$1$9: 
_. _. 60 FO 350. es} 4-3 os 
340 PFINT *,“rESTORYF<LE RECOPO CF CI NAMES CANNOT BE FCUNC@ phd 
3%153¢ 

390 IFCWROL.GT.WROZIGO TO £10 3$154° 
NLAS T3232 _bS188e 

LF (ING -€0 «90 ANDO N22 EQ .¥I50 TQ &20 362156? 

G0 FO et ote et oe BESTS 
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LF IN2.EQ2.90 ANOWN1E0.4I9GC TO 420 99359¢ 

GO FO 4&6 6$156é° 

610 NOCHE 2TA3S (NZ-N1) ____- 01622 
TFINCHK.NE.LIGO 79 bag £5162°¢ 
_____ MLAS T 22 351530 
LFCN2.LP NLINLAST 22 051647 

&20 TFCCCIINLAS?) .EQ.ACIDGO °C 470 39165: 
PRINT 430,CCI (NLAST) 161662 

__ 430 FORMAT(™ FORCEFILE SHOWS YOU ARE CURRENTLY GAMING CI “,4ts7 651675 
** CI PNEMONIC HAS GEEN SET TO THIS.™) 5916486 
____ACT2 COL (NLAasT) ___ 8 58690 
60 TO 46729 16217437 

6&0 PRINT 450,C0Cf ; IS i712 
io) SG FORPMAT(“M CI NAMES FOUND ON FOFCEFILE ARE *,ALtGe” ANG “,AL37 9$172C 
@ “ TMESE ARE NOT SUSSEQUENT FE°S ACCOPUING “0 HaSTOFYFSILE.”) | (S8173: 
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“CALL SCEPLC(IMIST. AM, 90C oAM(L)D 35476: 
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CALL NEWHIS 25178: 


pune dere cits es UEMGEEYs cilia allie dlienaomn 


ae 


“47-9 


ee ea ee 


____acmnsacr —___ 15796 
670 CALL CLOSENCIMIST? 7$233¢ 
Pee | ET nl | ee ee ee ee eh a a eee ee none bY bi 
ENO u5292e 


ee i a TEE SE Aa i ST A ae AMG mm ww WN ww eet ee eee eee 


a a a i la A, tS A = th Raptr eg - 


pp a es SS a a a ey —— — - _— ~- oe - - - 
a a A rR IR yap eh see A —_ 

ee 8 eee em a | er Ay EY fe ——_— - 

eee sen ee es ee ee i I eS A Ty AA ee ay Se ee et - _ - - 


. 2 0 ae 2 memes eee eee - pei ae: 


i 
OUTS OG OE 0G nn ng a 
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0280 jst ie ei mse a ee ep 
Qo 200 £=21,80 251933 
FLMT (T3920. 351960 
2106 CONTINUE 05195. 
___ PPINT 260,aCr I GG? 
110 PRINT *,"00 YOU WANT °9 ASSIGN UNITS 70 SECTORS? - 9$1977 
mw fed, REZCACEVYND Fe SGLGGE 
TF(LYN.EQ."¥"ICO TO 129 §199¢ 
[FIZ YNEO.°N"IGO TO 239 os2tac 
PRINT 289 12928 
__ 60 TO 110° 82027 
220 PRINT *,“INST®UCT.ONS FOR ASSIGNING SECTORS? * 462936 . 
_____._ CALL REECACINK? eR eT ae ee, a Es ee: _ 99296) . 
IFIZNXEQ.“N"IGO TO 179 9$205¢ - 
: ‘M THE ECREEN ANCOS2C6. | 
* YOU “UST “ake AN INPUT.” 752070 
PRINT *. “ENTES TH TTER A a NITS IN THE PARENT ASF TY THE 35238C 
*eae SECTOR.” 1$209C 
POINT ©, “VOL WILL THEN ENTER THE SECTC@ @ FOR THAT BAZENT. 952295 - 
PRINT **ANY ENTRY O°HER THAN THE LETTER A INQICATES THAT EACH UNTOS2120 
, at Tua ENT Ww ASSTGNED A 7AR 6,° $2 
' OPINT * eeeice UNIT NAME wILL THEN SE CISPLAYE) ANG YCU “UsT ENTER JS2L36 
4 ‘ITS SECTOR 0 ——— TE 23 40 
POINT *,“UNITTS INIT SALLY UNCOMMETTEC SHOULC 3E ASSIGNEO 79 SECTOR 152153 
*9 (ZERO) .* ee OE 
136 AKEEPsQ. §9$217: 
act 20. S5228C 
CALL OPENM(LEF IT, 3LI-0,21L2) 1§2199 
24640 CALL GETNILELTT, AORAY, AQRAY( 1)? 362239 
matP ETCH (LEIT > OUF ED Sta gee et Se TP Re Se 3$224¢ 
_ TF (4 EQ01098960 TO 220 = RAAT 
LFCZYN.EQ. "NGO TO 20 35223: 
IF CARRAY (3) £0, AKEE®.ANQ. 2ACT.EQ."A%IGO TO 183 $226: 
TFI(ARGAY (1) 069. AKEEPIGO T9 170 3$226: 
>) AXEE PRARFAY(1) _ «$2263 
! POINT 290, ARRAV(L) =. eceer oe “are 39227) 
_ GALL REECACTACTS —s 2298 
IF{IACT.NE.*A%)GO TO 179 262292 
150 POINT *,"SECTOR # - “ 35235: 
O 160 Cal. SEEhs 13231: 
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170 PRINT 320, ARRAY (2) 3$237% 
: 1$2 tac 

180 ARRBY(%) sSé€CT 16229¢ 
ul Yo) GE enc ga ee eRe YL he 

CALL SEPLC (LEI? ARRAY 6990 -AGRAY (19) QS2ea10 
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An(a2ozaclt 252432 

era AY 6 on i a i = EN 

an¢S )BARPAY( 2) 36265¢ 
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FALL GET (LHIST. AH ,aH(1)) 3524672 
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AW (& } ZAPFPAY (6) 052493) 

_ ANCGPBARPAVES) 92503 
Jameaye si 55251; 
ots GO 200. £86690 ei a i a ei ee Ses 
alMc(TI) saePavc rt §$2532 

Ft N AN Ni oL T. it) ha $25 46 

ELMT (I L£-1063) SELMT CII 2 Cy, J) AP VAY (II) 182550 

OGD CONT Te a es 89 G1 
IF (NEW EQ.QVCALL PUT(IAIST. AH, 990 -ANR(L)) 95287. 
____. TEINEWEN TPCALL FESLCCTHIST,AM,900,APC1)9) 8 8=— CC tC VS BT 
60 TSO 149 15259, 

220 Cau CLOSEM( LET) £§26)¢ 
Jat I$ 2612 
woe MIE De eT AT i EG 
2260 AH(2)24CT §§2633 
_ AMCJD8G. GGG 
AM (&®) 299999. 15265) 

NEW 15266°- 

CALL GETCIMIST. An, AHI) ) 35267: 
____ FIRM (O) NE.99999-INEWME GAT 
CO 230 £721,893 ¥ 716269¢ 

___ DF UZ TGP oe ZANM TE LTeAZISNITIIZ9. =F GD? 
AM(T{o71s) sEcLaT(IT J) 82712 
panseees 8. OSE |) ee ee 35272" 
230 CONT INUE 35273¢ 
______EFINEW ER GICALL PUTIIMEST, AM 900 AMC 22) AP 
TFINEW.LEQLICALL RESLCCINIST pA, 900, AC 13) 382762: 
_.____EF (9 EQ. 2960 "O 260 lL NPB 
J22 25277° 
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FORMAT (" © ? C52860 

260 FORMATI(@ INCOPRECT<--mUS? AE Y OR A”) 9524S6¢ 
290 FoRwaT(* PARENT© *,429, 5X) 1$236: 
300 FOPMAT(@ SECTOR 6 CANNOT SE NEGSTI \E--REENTES”) £$2375 
__320 FORMATO™ ",85995K) ABBE 
ENO 952690 
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UBPOQUTIME CLEAR(IRG) Es G29 
CCMMON/ONE/SLEIT (35), ArPAV (90354 ‘SUF (L026) 068942) ACT AS CENE ASECT S$ 29 25 
ON/THREE/TH A 
OSMENSION RECS (15) 852969 
ad e e 2 € ao ete iee an ee = a” ‘ al 
scr a0 ,“CI adc .“CrI LOSSES”, “INPUT L° "INPUT 2%, 15296¢ 
a “INPUT * 36° “rNePUT &°* “INE ut 5° edb us eTAk are “PED Srart/ 1829702 
Cal. QSOENMCTHIST, SL L-C, 1b 2) GS298¢ 
00 170 £21.35 5299¢ 
TF(RECS (I) .EG.G.9GC 7A 2140 38339 
2 153342¢ 
IF (T .€0.7.0R.f- EO. 8 INMZ29 9530 20 
ramen Sk} We Ld 2 oe 4 eee 453335 
av(2)2acT IS 30% 
pms SD I Oa te ie a a ee 
Heh eee CS326C 
A AW AH THATS 
a paadcicadesssesica TO 169 CSSCC 
we te PAT oleh WO TO 26 oe in dN es 193392 
TFCiakG EM. *¥IGO TO 113 IS3L02 . 
___.._ PRINT *,"SECTOCR “,ASECT.™ WAS CREVICUSLY GAME} ." __ 2 ISN AE 
109 seth *,"IS THIS SECTCR BEING 2SEGAMED NOW? G$312¢ 
t 35 . 
Tae EQ.°¥"°3G0 TO 119 9§314¢ 
IF(TP6.59."N"WIGG TH 209 353253 
POINT ©,"ANSWER MUST 3E Y OR N™ 353160 
a et er ee 
110 ITFC(WN.EQ. 21)G0 “TO 180 e531ac 
DH eet’ §313¢ 
AMCTI)20. 6S6329° 
£30 cONTINUE ON ie iin G 83243 
CALL PEFLOCIHIST, AM, 900, ANC1)) t$322° 
_EFINNLEQ 30160 TO 170 _. _. _.. 383235 
1460 CALL GETNCIMIST, AH, 46 (13) GQ EZPaC 
MaTFE°CHI(ITHIST.2L FP) 2§32S°: 
TF (4.EQ.1(98)50 TO 170 363262 
TFcam(t?. eNE RECS I(T). OF, AWI2Z). KE.ACIIGC TC 179 ~5327% 
2450 IFCAH(G) NE.ASECTIGO 79 143 95325¢ 
Bla A inns ope i te ed 2 et oe eit ee NL 
oe LF (2 eL Ee 19G0 * *Q 209 2$333° 
NT IN 29331° 
a PRINT 1906 ,ASECT ACT 353325 
—190 FIRGAT (CS ALL STATS PECOEPS FOR SECTOR *.F6.00" CF OF “MeAdue™ 4AVE ISSITE 
*BEEN “/" ZESQOED GUT ON NIST CRYFILE.*! 363%; 
290 GAUL CLISEMC(IHIST) 18 35S 
IF(T PG NE. ND T8Ga"Y" 23 736 
TURN 3$ 237° 
210 FORMA (A1) 78338? 
oa a eh a ee A ee, - 
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a 4A ¥ 2 $3430. 
2SF(2),FSSF(2) ,PACK(I2), 1§3646% 
4 e ena te g & 
ced aig hg ait aloe raha a 0 £3662 ‘ 
ial a SV(2F 67) (C 
1 poeta a 7a PCTLGSiceEvti aia 353446 
COMMON/ONE/ LETT (C35), APLAY (97) ce “VSUF 11924) 2G(89, Epo ACT. =Es Co GY 
ae eee ¢$3$04 
* td bt ¥ ps . 
SoS TON XL (90) -CIL 66) 5 FOL0(698852) -Crmece(s0,2),care (3% ¢ $35 29 
_____* s TGwEC KC 20) cLHEAGLS) « FOS (6) ot oeMe (2) seTATS (2ecL2) e LESH (5) .PAC(2)_ GS 3533 
DIMENSION T9RQaV(2) GSTS42 
EQUEVALENCECAazAyatepayy 000 8 88 
oareccoaee Pst Sree Ode ee ae st te hl ad i 33356) 
2 94 h&o07 259 51553) 5% §3579 
* TTR, 253566 
GO ATA PAK/209. 0190000 9090.7 = GGG 
CATR STATS /24060°9./ 2563608 
_____ GATE THEAQOS*C HH eo phy 2K SHUN» Me MINETS ye ALD» My MOK MS ____ 53610 
CATA LFORS* (LHe ee Me Ko AK SHEL g Mo IK, OHMLOST 9% 9 "2X OHNE MA,” -3$3623 
oP hid x)" $363 
UATR LPRNTS@CLHO, Me Ke EX ise Me MUX eo FG elke» *2KeFG01)™ SS364¢ 
ae: ____ 853883 
GATR LEFES MCL Hee em Me Ko AK oe QHEF 9% 5 MAME SE oF ety Me MLIXI MS 733669 
a a en ee ee eee ee ee 
00 120 Tei, IMAxKy 37$3680 | 
ARRA Y(T) 39 2$3893 
XL(L 924. 3537996 
_.__ 4G Ladd 321.65 _ Ee a ee ee ee ee ee ee Re eT Se 
106 MLCLPSKXLILT) © ALOSS (Jel) 3937229 
wei eens OO PEC Oh Bae nn SS ee 
THOLO (I, J)29 e5376¢ 
et 0537S¢ 
1260 OCT, J)20. 15376) 
_420 CONTINUE GSTS 
Cc 3$37aC¢ 
2138 SRINT *,°00 VOU WIS TO CHANGE COMGAT INTENSITY LEVEL FAS ANY UNIT 953796 
ot” 75346° 
CALL SEelacIny) 36349245 
260 FORWATILAL) 35 382° 
PP) 058), ) 4” 5 ose vet NL OR A 4) ec ee a fa 
TPcTNx.EQ."*N"3GO TO 270 35346; 
CR LS, ) Cie | | Rae ear ee a ce eae ae en ee AP eee eee ea menNEE OE 
60 FO 130 IS3S4<2 
IS5347°% 
180 PRINT 5, "ENTER PARENT ID -* 15 3a8¢ 
M=159 
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______ Fab wEENQIARRPAVIZ)) CCC GHG 
160 Foeeat (1410) |. 95390¢ 
_270 FOPMATC@ “2020? 2G FS 
Cc 05392° 
PPINT ®&, “ENTES UNIT -* 953939 
CALL REECBCUNIT) 153960 
Se a a ae Se Rat Net er oe BP SG IE Ne oe ee 
PARENT SARRAY( 1) 28396C 
—_____ ARRAY (7) 2999994 Sa ee ee ee OS 
CALL CPENMILETT e3LI“O DL LR? 3$3940 
ALL GET (LEST pARRAY , AGBRY (7) } 083996 
IF CARRAY (7) NE. 99999.91GC 7O 199 1$4c600 
_..__ PRINT ta Ce PARPENT = HE 
180 FORMAT(™@ UNTT “eALGe* ITS NOT CN FORCEFILE!%) $4023 
____. 40 TQ 264 ai ae ee a Sake ae a ee OOOO 
Cc 1646260 
FLAGs 054051 
230 LFCUNIT. EQ. "ALL “960 73 229 6546663 
__s_—“=sPECRRAAY(2).EQ.UNTTIGO “0 229) HEP 
220 CALL GETNILFI7 »ARFAY, OPRAY(L)) 956087 
so MBJFETCHCLFIT 2UFPs  — 55990 
 JFC(H.EF. 2009160 7O 250 C86195 
FCAR@ay NE ,PARENTIGO ° Lise & 
TFCUNTT.EQ."ALL“IGO TI 240 G5612¢ 
_ Go fO 2e GOT 
c 054266 
__220 PRINT *, "ENTER NEW COM@AT INTENSETY om hm, 15 OS 
CALL REELS 9$616¢ 
ITIL SXINK(2) 056170 
LHOLM2TerTe 9546182 
IF(TCLL.£0.999)9GO0 TO 236 et. : ere 
TE CCICTIL GE oANOs LOLE LES) OMe (LC lkh Ghee 10cANE LOS LE. L8IIG0 FO 344205 
Z i amie ld Aa a 2 154225 
PRINT *©,°INVALIO COT INTENSITY LEVEL ENTESEC.@ 996229 
230 POINT *,"rOoMaaT INTENSITY LEVELS” [$4230 
— BRINT 9, "ENTER 0 FOR UNCOMMS T=0 UNITS” a LYS. oo 
POINT ¢,*% t ©OR UNITS OUTSTDE CF UTeEct Srte* =  — 356253 
PRINT 8 = "3 FoR RESERVE UNITS COmNroTET CAPE 35426: 
____ PRINT o." 3. £08 UNITS ON PERIMETER CF “9a 5277 
POINT «,* & FOR UNTT® IN (AIN fATTLCE S°EA" 16624. 
POINT 4, * § FO@ UNITS HIT aY TACALR™ 35429: 
69 TO 130 256390 
ae ae ee a a dn ay eA, “eee 
260 LFLAGSY 0$632¢ 
_ICTLatHous _ Bee hhc nee a eee ahem Oe 
IF (ICIL.GE. 10) AREAVEGIZICTL -ICLIL/10*10 956 3ur 
ICTL#ICrL-LCLL/10429 3846357 
ARRAY(7) 2iCIL 78Q36- 
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—_____ CALL sEPLe tr 54372 

: IF CUNIT. EQ. "ALL IGO TO 216 254387 
__ 280 TE(LFLAG. 399 
260 CALL GLOSEMC(LFEIT) 054499 
54415 

9$44 2% 

ALL QOE NM (L&E TT «3! b 254639 

260 CALL GETN(LETT AROAY, AREAY( 1)? 35464) 
ga YC in iS ss 194450 
eae tect tue cae TO %%49 35446) 
eARRAY(5)9G6C 79 289 546470 

Prteseaavaay 354686 
____._— J RAR@AY( 3) 056469) 
C9 300 £271.88 056500 
eo EP CECI NE cS) G8 Yn a SIE 
CATVCTeSISOAISCTI, ys) o€eRAv (let ai 954520 

fe 2 + 3§653¢ 
TF(CSPIN® .E€9.G.ICATINT21. 3354656¢ 
_._._._ OTe 280 (1 e J) (ARRAY (2010) SCOT INT S558 
300 CONT INUE 056560 
getoe GOTO CAC 8 oe ot ee eee Speen Be 394657¢ 
C 35654¢ 
2846592 

CO $2G Tete TMAXKV 954600 
OL hd 89 (add TEL Y(ALOSS (66 oT) /PACKisdI/stG. = CC 8 
TFCDCLeotda LPO IC(L ets 9. 54425 

_ ____ 08 e 29 67592) = (ALOSS § 660 JIM TEIK IAL CSS (669 TI/POCKI 1) PFACK(LII/S ide SS4663C 
IF(COCT 2) Lede OO(L, 232). N15 464C 

329 CONS INVE 354653 
Cc JS4&6AC 
___ FLAGS 954678 
09 396 j)21.2 95464¢ 
____ 090 390 FerelMaxky HET 
IF (J -0EN.2969 70 349g 3$6732 

KINO 2“BL UE” 95472° 
KNSIPIY¥ (xu CE) SPACK(1L99719~ 956720 

LF (DCL ytd GT Dee OR XNeLE.C.I1GO TO 350 en 164736 

XU(L EXE (L)-KN°206 200K CL) IS4742 

XNZ3O. _ _.31§46753 

POINT 330eTsKINC §5475¢ 

330 FORMAT (™ APPORTIONMENT OF TTEM “,f2." LOSSES “O *, ue," FOSCE CANNOCS477° 
~f SE YADE™) 194785 
_. 60.70 360  —_  1HIDE 
340 KNSCXLITIOIFIMEXL CEP 7A ACK C19) PACK C1) 9722 U54A 02 
__._ KENDBWRECM  O568ts 
IFcOtIT Ji. GT. Je eA. MeL Eo Ce 160 GO “FO ro (380 1964425 

xX = @XN® 3$G433 

XNSC, 39446° 
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BR In? Bs eleK INQ _354asc 
350 LFCKN.LE OO (LeJI9GO °O 390 19446 
 -- SEUL GT e Ze AND ok obT ei #IGD PO 399 ee eee 
P(I,JI27. 56546 
rd 31.4 4554496 
TF(4.EQ.29G0 TO 360 §5490¢ 
O12, YISO( Ley) OLFIX CAL OSS ( 1/PACK(1))/10. 156910 
GO TO 37C 054925 
360 Ble Jd20 (Le J) HCALDSS (Tio Ld MSE I KC ALGSS (FT LI/OACK (LD DPPACKILIIS ES. 256985 
370 GONf INUE 95496¢ 
»20 { ) oELMT(T, JD 354950 
TFLAGst 15496¢ 
__.. __ PRINT _34G2TeK INC St iN a a OO 
380 FORMAT(* INSUFFICIENT CST INTENSITY LEVELS HAVE FEE% ASSZSNED €OS 354986 
__. _LLTE@ “.h2e" OF “eAbe” FCRCEM) 93 8H 90 
IHOLO(L, J) at 356205 
790 CONT INUE 195912 
TFCLFLAG~.E9.0)960 TO 6&3 366620 
_____ PRINT %, WAUTO“ALLOCAT ION OF AGOVE WRN SYSTEMS HAS BEEN ENTTTaATEO™ 155330 
C © 985345 
_40G TECLPUN.EQ.2) GO TO 1248 rae Sy ticle ach 22 its bes tty fo CO ee 
JFLAG29 9§57°6¢ 
WRITE(6,410) ACIT,ASECT 385373 
G20 FORNAT(WLUNIT STATUS FILE FCR CX “*,ALCe™ &$ SECTCE *,FH. 1,7) 9§5a46 
_____— WRITE (6, 600). 7 = 055296 
WFITE (6, 620) 15106 
820 FOOMAT (21%, 2HOP eS t2UKstetay ST 
PARE NT s* ALL” 9551225 
aL PENM (LF md 9) $5513 
eg OPE NM C(IHIST, 3L15°0.149) SSS146 
_ 430 Cau GFTNILFIT, ARRAY, APRA Y( 1) ) ee > +> 21 
MFLAG20 9$5165 
MBYF ETCHILE IT, 2LF F) _ 5517C 
TF(4.EN. 1003) GC °O 456 3S8186 
TETL ARR AY(7) 265144 
TF (CARP AY (4) NE ASECT) FL AGAL 3$$20° 
TF(ARRAY(S) NEACTIMFLAGS1 85228 
wed TF(PARENTLEN. “ALL ™) GO "OO 610 ~ 465 22¢ 
_ SPCARRAY (1) -EQ.PARENT) GO 70 630 we «G5 23E 
(650 LECNUNT? .E€0.0)60 TO Sag 758 24C 
IF(PARINIT.Gh eM.) SAPEF PSEA RFPS PARINIT*2120. 31$525¢ 
PRINT 660,PAPENT.PAREFF 155 7635 
_ 460 FORM AT(™ CUMMULATIVE EFFECTIVENESS CF “sAtde“e"oF 4.0) 155276 
WRITE (6, 420) 16529¢ 
___WHTFE (6,620) ee ee ee 2 SSS 290 
WEITE(S, 4701 TPL JES3G¢ 
479 FCRYAT (% o%, 2X, “PARENT 3°, A10 4X, %2?*) 955325 
L131 155 22° 
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640 IFCAPLAG EGstphazg 0 GS SSI. 


L2a. 1% : 3$58 345 
8 q 
00 =a. TUNSLIL2 0656363 
“6 & 

THENO(2) sNUNO (Tune22) 065 34¢ 
TFUSFLAG «EQ6 t -ANO. NORNTS EQ 0) WRITE (82500) 0$56G0 
—_____ _TFCSFLAG EVs LeANONPRNT SEQ sDIWETTE (60420) 8 8§= Es (HL 
TFCSFLAG. EGe-L ANG NFENTS.EQ.SPARITE (6,429) 3§ $4629 
t Tare Leis 
NPRNTS EN FONTS #2 055460 
ON a a a a i es, SO 
IF (NPONTS .€9.6960 TO 57% 655460 
_ 500 FORMAT(ZEXeLiceheyp CGE 
WRITE (6, 429) 955645 
= % 955496 
IFC JFLAG NE. LIWEITE (6, LEFF) CARESF 99550) 
___ 00 $10 ,UNSLI,L2 s$552¢ 
IFISTATS (1, IUN).€6e99G0 TO 510 3555626 
= See ier ent a teen ee ea > a, ___ si GES 34 
LECT UN. GT.S) LEFF (228NL"Qt (I LN=5) #22) ‘ ISE54a¢ 
we ( FISTATS (2, TUN) 35555°¢ 
S10 CONT INUVE §$5546¢ 
_WRETE(60629)) 5578 
WRIT E(6, 420) 1555 ac 
_._—- x PFOVC]ISNUNB (9) | ae 85559¢ 
LTECSELAG NESLINRITE (6 eI FOR? 55553C 
60 $20 TUNSLi. 9$5619 
IF (STATS (2-IUN) ~-EQ20360 TO £20 C5562: 
____ —PFOR (22S NUMBCIUN® 22) 0 G5 HTL 
LE (CIUN.GT oS) IFOR (2) NUNS C (IUN@S) 222) 2§566c 
WRITE(GTFOR) 8 5 BSG 
§20 CON? TINUE 3$566-° 
WRITE (5, 429) oSSh7C 
WRITE (6,429) 555468) 
KNTS3? 0 GEG 
06 $60 £21,489 C$5763 
______ STF CS FLAG EQ.12 ANC. ITBUNK .€0.5969 79 $60 GTAP 
pace la a TO $30 gSS72: 
TOoOnT( 2) zNUMB (0) 15S746° 
___— WRIFE (By TPRATITCUMLOS( Tet) -CUMCE(L 52) = 5 PSE 
$30 TBuNK20 55576; 
_ _IFCCNT.GT.22960 70 S560 TE 
00 $50 ITUNSL1i,L2 1557435 
TFISTATS (2eKN,IUN) .E0.9.160 TO $46 3$$79¢ 
TPONT (2) ZNUNB (CILUNF 22) 255492 

se Mies cae ee iia EOS Stet foe! ide : 
yh Fert 


t 
ae eye reed hese: ye 4 
_____ LFIZUN. GT SIT PRNT (2 dONUSOC(TUN|)S) 422) 0 BHI 
IWAN SZSTATS(Z2SKNT,IUN) “LETXCSTATS (20KNT, TURD /SPOKIL)) PAK (1) 865220 
__.__ ROS TSIFIXCSTATS (Ze MNT, LUND @LFIXCSTATS ( COKNT pLUND /PAK(2) 9*PAK (2) 35545936 , 
C -TWONd/ 100%. 35548466 
REMAINSIFIX (STATS (2 CUNT TUN) /PAK(2) 1/10. 055456 oO 
WRITE (6, TPRNT) IWR, RL CST, REMAIN 355860 
_ G60 LEST ATS (2eKNT,IUN) 02. 2.) LALNKZIOLNK OL ____assare 
850 CONTINUE Soe 95588C 
MOTE CCG 5 Oe nnn i es Se es 
TFC IBLNC NES DKNT SENT 7 335962 
FCJFLAG EO.2 .ANC oFSLNK.NE.SIGO TO $39 955913 
$60 CONS INUE 35592¢ 
_XJBaNM2Q@ 00 0 . __.__.-. 255 93C 
$70 JFLAGZIFLAG+1 33594) 
____EFUSFLAG -EGe29GO TO 480 8G? 
WRITE(6, 600) 3$596¢ 
_$80 00 $90 TUNti019 ~=—— si‘ UULUUULUULUULOCOCOC‘(;$NCCOS GPE } 
00 590 TWEN=1,26 05598° 
_STATSA(IWEN,TUND SQ, os «85992 
~ $90 CUNT INUE 3$60IC 
j _ SPLAGS9 Sieiict eR Oat teen i ede SE SOLS 
600 FORMATS ©,132 (8%) ) 5622: 
; Fin We 190 T9 98 1$633° 
$10 TF CASRAY (1) NE. PARENT INUNIT 20 056060 
MAME AT SURRAV (48 a UGE ; 
. IR12 IRRAY(2) 159636: | 
‘ CALL TRANS (ER2oTPt) VIG ITE 
4 PARE FF SO. 056086 
N PARFOSs). 156290 ! 
cn PARINIT20.— 156105 
a she oop ey OR Gi 3 Sed Fn Be a te en a JOS 1 
7 TwOs 75 356126 
' _00 $29 [23,98 °C 156130 
| 00 625 J21,52 356146: 
620 Cum OS (l,j) 20. $5615 
630 TFEPS20. 55616- 
: — VEFF3Q0. 6 : 
i JJ#ARQBY (3) ISALAC 
: _____soTR2e IQA 2) eee a ee eR SRT 1 
CALL TPANS(IR2,IR2) | 45620: 
LF CRFLAG EQ.) NUNITSNUNI™ of CS62t5 
TFCMELAG.EQed STATS (1 pNUNIT) BiR2 95622: OC 
__640_ FORMAT (CW OPRSENTE™, A106 SK y"UNITA%,AL0//25X 358232 
1 “EL MTS 53X,"LOST™%, 2X,“RE MA IN”) 55626: 
____ PERS #0, Seca NG ARASE 
IF (ARRAY (3).NE.L) GC 70 860 =e 15626: 
NWPM 23 15627: 0 
00 $80 [21,65 56286 
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TF CMFLAG -EQeLICUMLOS (Ie 2) SCUML IS (2.2) oAR@AV E519) 3§639¢ 

t 0$633° 

IF (ARPAY (T*20).EQ.0.160 TO 356 056 3$2¢ 

ad 2 ¥ + n 
TFCOIL CLCIL 1) .NE.0.3GO °O 659 356 340 
QDAIRIT JU) Ete IGG TO 459 UU CSG IEE 
XN@IFIX(CALOSS (66.5) /P ACK (199720. $6 %60 
—_____TF(RN. ST OAIS (7, SIP PXNBEAIRiT eI) 8 = GH G7F 
ATDCO*ARCAY(T 10) 9XR/04 IP CE J) 156340 

a2 KQ* 3$6 390 
TRIE LTO 366000 
____—s TF UY NEW21G9 TO 680 GH LD 
PERS 2PERS oATRKO 396429 

_§50 IF(L.£9.2)G0 TO 850 # 3&§=—E—COCCCCPC!hNDN#$/|h$''s ee KHZ 
TF(2 CI eS) LEWD .IGO TO 950 256660 

& a $665 

TF CXN.GT OFT, Jud) XNBCESs JU) 0$666¢ 

GRTE NT SG TU CEG Uh 08 Bn i 1G ETS 

IF (SBTINT.EQ.C.ICBTINT# ti. 156468c 
___-_ APL HOLO(Z add) EQ LICITINTS2. =F HH 
AKOw CARS AY (Let ade Xnys (CATTNT#@C CL, JUD? 3196§1¢ 

fs f * & i] 5 ol 
ARPAY(Te10) SA2RAY (I e1 C2 -ae0 1$6§2¢ 
______CUML OS (T 222 2CUMLOS (ZT, co eakPaviset() = (EST 
AKOs AKQs AIRKO 356543 
STATS (NWONW ONUNIT) BI OXFELX(AKC8L de SOL FSPAK IED OLESX (CAGFAV(Tot2I°12 956552 

C #.902)*°PAK(2) 356566 
NWPN SNWPN ot 56575 

CUM, Of (7,2) SCUMLOS (I-42) #AKO 35658¢ 
_____ TFUARPAY (POLO) LT.0) AVUAVIToLtarsC 0 HG 
LECT LT. 139GO TQ $80 §$6605 

FLOSS TH (AKO~AIRKO) *COEWS (L242, JJ) _ ,_ §866RE 

ARPRY (12 1 SARRAY (123 -CLO CT 1¢662: 

PEPS SPEPS oCLOST $5663: 

CCQ 660 INK21, 20 3S5684C 

___ TFG oEQ. ICHECK(INX) G0 70 670 ee LL 

668 CONTINUE ~ Sake 35666C 
GOTO 850 Re eee ene |e 

Ce] CS668. 
670_AM(?)#aCl 0$649° 
ARCS }BASECT 16675° 

= QWIR J OTMERPOSM 8 ce LOOT 
TFT -6E.1604N0.I2.LE 230960 TO 640 IS672° 
___TFAZ -GEe 32 ANGe TLE. 42160 TO 690 ___, § R738 
TF CL .GE.43eANDT.LE.55) GO TO 710 156 76° 
LEC LEO bie Re E662 G9 92 775 1$67S5¢ 

GO TO 48° 39676: 
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res " rer : CO me ae ae = eee 276 Eo 2 ral, hs Pataca - TE ne oe 
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: = fe) 
re Ie ee ee ce eS eee eee | |S aN 
680 AH(2)2°CI ARMOR™ 0S674C 
CAL. GETIIHISTeAMeAMC RID G79 
TFIHCR) LEQ."ERROA@IGC TO 910 956809 ‘ 
Lwo= 9 uS68t. re) 
ING# (l-121)* seit 956829 
FSa( AM (ING *HALODS(CBTINT 20 (2, ys)? 05643¢ 
SHRP SAC INC O3) 156866 
____ BF UY GE. 16 AND. 2. LE 20ISMET SSHRe oANIT NCO) ne t-1- 1. > T° 
IF (I 0EQ. 279 SHOT SAMCINGS2) 756469 
SHRT = (SHPTOMOLO) SICETINTOEC(T, Ju)? 1$687- 
TF tr GE. 16.4NO0. TeLE e290 aCe76 65688° 
SPIT EW 260OR LED S7ITWOB7T HO 
_____ TFCIWO.L7.763G60 “9 899 SKIT 
ARRAY (TWC) SARCAY(IWO} OFS 356920 
AnPA YCINC +9) SARRAY(LTWO+9) OSHRT 1§693¢ 
GO rO 868 354963 
A ee a nD a le Sl ER ES NETO |) i 
6390 AH(i1)2°Cr Ag* 2$696¢ 
CALL GETITHIST aMeAM(t) dL ETE 
LFCAM(6) .EQ MERPOOMIGE TO 320 356982 - 
INGs ([-34)26r11 356395 
NWOs 76 1§7395 
__ [F(Z -EQ.362NwNeAgG PILI 
ARRAY (NWCD SCAMCING) “HOLCIS(CSTINTRWO(L JP) 3S752¢ 
ACPRY (MM ODIRCAMCINGCHZPSMCLONCI(CSTINT®PC (is ddd) 857938 
; Go TO 365 2570 ee 
' ST LE ee Ce ere fT dh 
91 700 AH(L)2"Cl CANNON® 3$736° 
< __..._ CAL. GETITHIST»,AMeAMCTI) CC ETT 
} IF (AMC 4) .E9."ERROO"IGO TO 410 IS7IaC 
___ ENO a CT 6396080 STE 
IF (CT GE. &3.AND oD eLE 47959 TO 750 957102 
IF(T .€9.50.0R.2.€6-53160 %O 733 IS711C 
TEL .E9.519G60 TO 720 18722" 
CO 719 F2381,%4 Ponce ie oe NE ca 7 7 Fi gt BA Juste I ee 
ADRAY (45 13 ARR AY (8S) © CAMCING O52) *HOLE) J (CBTINT AC CT, Jad} SS7eac 
_ 720 CONTINUE > (otes OE Ne fog Ade ns ns NSD tens, ph we STL OE 
GO TO 4S5¢ 357160 
720 ARRAY( SSD 21 AN CINCOLIOCROLDD SIP ATINT OE CIT, Jd)? IS7178 
ARRAY (86 OC AMCINGS 3)"HOLDIS(CBTINTA=C (I, Jad? 357185 
th OST OOS a ne ee. GETS Cc 
730 whe 66 *S5720¢ 
ssc se lO OO SE DG a i i hn ee ea te ee ae, 
ARRAY (IMCoIT) SARPAY (IWOOT) OCAHC ING OLID®MOLSIZ (COTINT*O (ie ss?) 357225 
769 CONTINUE 357235 
GO To 960 SE7246 a) 
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590 766 If2#1,% 38726- 
®: 3 & & fc s ? a 
760 ey ee ‘ 35728¢ 
« 
770 AW(LOS"CT AN” 8§73990 
S$73%- 
TFE(ARPAY (6) -EQ."EPROR“IGI TO 620 3$7 720 
A ea a er a Ae cE E,W! AX DF 
IF CY .EQ.62)T Anets 157 34) 
2 “37 
CO 790 INC#11 875% 35736C 
LE C(AWCINC) NE APRAY (29060 TO 790 SC ITO 
AaN(INC)2 2AM 387 3a¢ 
—_. OQ 7ad Ifsied 8 GPE 
INXS INCeIT 657409 
ARRAY (TwH pean (INK) 957429 
TwOs Twl>1 367629 
wc OU I nn a TS 
TF(LWC.GE.90)G0 TA 840 §9$746¢C 
_790_ CONTINUE = dG HHO 
800 CALL PEPLE (IMIST.AM.900,84( 19) 997466 
seecgeca =*  s n  — STOT. 
C 35766C 
810 PRINT S82G,ANE2) GD 
820 FORMAT(@ ~,A10.”% RECORO NOT FOUND”) 0578300 
—_.__ 6O_fF90 950 a nl 
C 6$7$22 
POINT 86 187536 
84f FOPMAT( AMMG RECORO SIZE FCR 4EAPCN TYPE “*,52,7 IS INSUFFICIENT 1057540 
Se St So i sw tO 
aS0 CONT TINUE 387565 
Pere 1° LS Be. 1 Re ee De eee ee Oe eB I 
860 CONT TINUE 357580 
JJ22 *$75$9° 
NWON 23 ; IS7AGS 
pa Se gO a i a ee 057811 
ATRK O90. 357623 © 
TE (MPELAG EQ eR ICUMLOS (ig 2) BCUMLOS(E 22) CARRAVIT 620? 057633 
TFE(MFLAG.EN-1IGO TQ 890 757665 
F Y{Io GQ Tf GS7§5° 
TF(DAIRIT, JJ) LELTLIGE TO 870 95766; 
—___TF(STLCTCLLe2).NE.0.960 TO 4870 =F PHP 
XN@¢ ALOSS (660 TPmTEIXCALOSES (66,25) /P ACK CL) 2 *PACK(139/190. AS7HRG 
TF(CNGTOOATRIT , JIDIXNMOATIO(L, J) 0 7B GE 
AIRCAOZARRAV(T 610) *XN/OAIR IT» JU? $5779? 
A Os TFIx (AIPKO* 2.5) / e 1§771C 
ARRA Y( T1210) ZARRAV ET o21 7) <A IRKO 957723 
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TF(L NE€,29GO TO e789 TTT 


PERS aPERS +alPKO IS7T763 
_ 870 _ TFL .€9.2960 7G 84 OG 7 7GH 
TEID(TeISP-LE.02960 TO 440 357760 
XNBCXLIT Io KCWL CTI SEACK (2 99 4PACK (299710. CS7774 
ITFIXN.GTOCT, 309) XNSOC I, JU) 987786 
COTINTaCIL (ICLLoL) 9§7793 
TFIRATINT ENG ICHTINTs1. 0578 00 
____ PF AZMOLI (Ty JID EGe RICSTINT SY. THLE 
AKO® (ARPAVIT OLDE XNIZS(CITINTIC(L sydd CS792° 
AxOw TFIx (AKO®10.+.59/10. 9§783¢ 
APER Y(L+10) SARRAY (2 O10) AKO 159746) 
_____ CUML OS (7-22) 3CUMLOS (2e2) eAPRAViTO2 fC) =F BSS 
AKQ® AKGe aTRKC 197862 
_______ STATS (NWPN »NUNTT) SE OL FLX (AKO 136.002) SPAKE) OLELX (ARRAV( G20) toe IS74APS 
C .001)*PAK( 2) 057980 
PNaN + 187 

UML OS (2,29 2CUMLOS (Let) aK 05 7909 
—____TF{ARPAV CT ORG) LO) ARSAVCLeLIISI  OO©€©€©€©=©=™FCCC GOL 
TFCE .LF.L3IGS TO 640 I97925 
__.___CLOSTs (AKQ=ATIKO) “CSEWS (Led 2,JJ) 7 
AFRO Y(12 DBARQ AY (42) -CLOST 357948 
PERS 2A FOS > 3$7935¢ 
840 CONT INUE 957940 
— 890 JF CNEL AG.E9.14)60 TO 940  8=8FEs ss GT BTE 
ITF CARRAY (22). LPO APE AY (12) 2C 357989 
_____ EVM OS (2 o2PSFUMEOSISe2)°ARRAVOL2) IG TIS 
T22 8549039C 

STars (NWPN NUNIT) ST eOLFEL (FERS AL 9+. 001) SPAK(1) OLE SK CAF AY (22) %2 8 
C #e201L9°PAK(2) 954022 
___ CUM OS (2 o L DBCUMLOS ( 25 19 HERS = = (094032 
~ 900 FOPWAT (26453 SX eFSeled he FS e2) 858069 
910 00 929 £21.65 SS ACSS 
929 PEPS aT FOS cARRAY (LOL 0) *FPS (I, JU) 1$48365 
TF (WEL AG .EQ.11GO TO 940 NSAC7 
IF C(APPAY (6) .GT.0.) UESERTIFOS/ARQAY(6)°*100. 752040 
STATS(2,NUNTT) SUEFE 8 HH 
PRINT 930,4RPP8Y(2),UESF 368432 
930 FCRAAT (* EFFECTIVENESS GCF “sAL0y "2", Fu. C) 8 4ate 
SRORY( 4) SUEFF Q$a12: 
960 PAOF 85 a9 ARE DS oTFPS 9$4139 
PARE NITSPARINIT ARRAY (6) 3548145 
__ ARRAY (7) SARGAY (9) Ci BST 
TF (CMFL8G.E902LIGO 70 &3C 969265 
__ 950 NEWeQ BRS Se Oh a ee eh IS ee Fy Sie 
AM(L) SACI | 96814: 
AN(? ) s&REAVit? 9648139 
AM(Z3) 24RF AV (2) 28428: 
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CALL GET (ITHIST, AM .AMC1)) u #8226 
—___.__TE(AM( i) NE.99999,)NEWS? GD 
AM(®) SARP AY (4) 058260 

lad 3 Y OF 

00 360 126,90 358260 

AW(T ISARRAYC(T} a tS. OTE 

960 COM InuEe 588285 
MEW EQ OPCALL FUTIINIST  AMe ICT AMC 2) 8 8=838©8=FEss CC (dG 
TFINEWLEQLLI CALL PESLCEINIST,AH,900,AH(1)) 1548 303 

? s 5 fn 

970 ARM Y(t) 20. 959225 
—_____GAbLn REPLECLFIT ARRAY »QEDAPPAYC2)) = CGB TTC 
6G 70 &39 354360 
960 c4l,, CLOSEMCLEZYD EC eB 3GD 
OC 390 £281,93 654260 

3 7% 

996 CONF INUE $56 340 
sc MRNE BMGT CO Sar i i NS 9G 
4600 An(e)p shanty 358609 
nc UC UN an So ee ee ON 
ans } 399999. 95484629 

6 - 

TF Camo) .EQ.99999,)60 FO 1038 ISA66.2 
2020 ZF (a CS) NEASECTIGO TO 4920 8 =—C GG 
CALL CLTECIMIST) §58660 
2020 FALL GETMCIMIST,AM,AW(Z)) OU HT 
MEIFETAN(IHIST, 2L.FP) 356649 

F (we tT £56694 

TF tawti) .ECeAAML.ANOQ.AN(2).EQ-ACIIGO TO 1018 §$a6 1° 

2030 _TF(R Ary, €0,"Cl Ammo"WIGO TO 2060 22 BGS 
&Anqs"CI an“g~ 358525 
PORNO > 2 > MR || eee en a re aE ee ee RP! De 
1060 AM(Z)d)2°Cl LOSSES™ 35654) 
AH(2)24CT 05485528 
Axt(Z)eAS ECT *1 90.6 05856° 

AH(SPSASECT 59 G72 

60 £660 I[s1,I “A my 859582 
_____SWfeisy GHG GE 
TPuUT 86 198692 

1050 Js MAXKY 35861¢ 

AH(potG) SALOSS(I,U) 08962C¢ 
—______ RF CQO) NEO, ITPUTSE GSS 
1080 CONF INUE CSHFGS 
___—. TECLPUT NE 8d CALL PUTIIMESTeAMeDIGAAMIZ)) tC BBS? 
AH(3)s4u (3) oLPUT 9§a66C 

r NI egag7et 
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1370 CONT INUE *SA79C 
1080 Aw(t)os"CT BmmMOnm E87 TG 
AK(2)24CT 358725 
AHCZ) sAS ECT #100. 25473) 
AM{(S} saSECT $87 4% 
ee ,  ) Se eRe ce ee eC een ee Ee eS ee aE ee a OE a eee A Ly 
4090 ANCE) aJ 3$476C 
TG OF a a a ee SSRIS 
AH(YT LIP SSHOTE (TL, J) 356742 
CONT IN §$4798 
Cath PUuUPCLHLST, AW, 9GG,4aM 0 1)? s56ace 
____ PF (5 -E€022960 TO 2320 == GS 
Jz2 36682) 
gs BW OF Be CS OE nn G8 SG 
GO FO 1096 358446) 
410 CALL OSE 4(THIST) 3$445¢ 
AMi2 “BLUE ENO” §§946e 
earn. |. prereemn cen eee a AIT 
1220 LPuf s-4 ¥$86ae 
Cau. CKSTORC AML TPUT) FFB N 

00 £139 fai,P“axky gsagac - 

AM(T 019) 2EL4T (L, J) 956910 — 
2238 CONT INUE 854922 
______ CALL CKSTORCANT TPUTD OO G95 
IFt(s-€Q.25G0 TO 1140 199949 
i es A a anf Pes a tat aa ee oe et ee, ee eee 
AKMiz “SE. ENC £64960 
t 95897 
1240 PRINT *,“OLTSPLAY & UNIT? 31§4698C 
1250 Cau, REEwACIN®T) eer eee 058999 
1160 FORPAT(A1) $$9199 
RETO OMIA Cg i NII SD 
YF(INT.EQ-LHN) GO TO 1269 3§992¢ 
TRIINT.FO.2NY) GO TO 1196 959¢ 39 
PRINT 1240 9896 4¢ 
1460 FCAmaT( “ INCORFECT! RESSONSE SUST SE YES CF_NG ]"cY AGAIN™G) 95955" 
GO fO 11506 959963 
i pa hl IN ec oe ee i nr Ph ee es Be in al ee Oe 
£2190 CAL. CISPLAY 3990485 
60 TO 12560 26929) 
1200 CONT TINUE 05920° 
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2S F (2) -FSSF (2) .PACK( 2), 689163 

A » € K ( 2) TSvis ) $9275 

COMIGN/R EEDS JORAVLs XINNEG) pSICARO( 25) ,f GRMOF 9$9164 

/ a/F PS (80.2) 4 } € oF Tress 2%. 39591390 

4 PSN(6.2.2) PLT (25), pple 319299 
COMPON/ONE /LEIT (39) s SRRAY (90) » MY SUF (1924) 9018052) ACT, asaeic 
gaa ea pea 3§922% 
RRAY (& “NY 1§973°: 

1c¢@ geaaviare"9ace 0 £926) 
_____ AHOLOSBRA AY (1) 25925C 
CALL OPEMMITFIT SLI“O0e1LR?} 3$9260 
Te a ee oer 

BRRAV(TI) 2 3 » 9295 
NN rr aE 
eee 

: ABGVE UC LOOPS ZERO OAT WORK ARRAYS $931? 
reesei 

tes Sheen eee 959 73¢ 
120 PRINT *,"“ENTER SRC ACTION PYPE -* 259 Sec 
A . $9356 

INXse XKINK (2) 9$9362 

LF CL NX.€0.999)60 76 139 21$9371 
ITFPCINX.GE. 9-ANO. INX.LE. 6§GO TO 149 0S938°¢ 
SINT *,"ACTION CODE EQROK = T2v aGal tty 09396 

130 PRINT *, "VALID ACTION CONES.* 316943° 
POINT %, “ENTEO TO RETURN T ECISION FOINT™ 9S59a1¢ 
PaINT +,° t °O ADO 4 NEw SRC* 25942: 

____ PPINT 4,” TO QELETE a SRC" RUSE 

~~ OREN +,” . ?O OLSPLAY a SPECIFIC SRC” 399645 
PRINT *,* & TO SIS@LAY ALL S7C°S™ $9658 

GO TO 126 — -:3§aue* 
1594672 

140 GO TO (460 627743606 150— 409), TNXO1 869486: 
150 POINT ¢, "ENTER SRC TO BE OLSPLAYED =” ae 05949% 
CALL PEECE(ASFC) IS969% 

i ORR VES) oe AS OG in a i ee eS ES 
BPRAY(3) = 90909 3595 23 

RRAY RAY 35953? 
LFCIRRAY (33 .EQ.90909) GO °O 289 58984, 
SxINT 190 SRRAY (2) 3$958¢ 

160 FORMAT (1X9 “SRC2*sAL905X9° 10 ITV) 35956; 
O00 200 [23e4Se2 159872 

IF CARRAY(I).EQ. 2) GO TS 200 79958: 

Oz BRRAY (I) 33953: 

POINT 190, ( PIN, 3ReaAvE e121) ) 359602 
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2CO CONTINUE 3§962° 
ee et Ne ee ae Re eae ER a ae Re ee A Se SEL DS eA Ee Ree CEN A A Ls . 
220 PRINT *,“OFSPLAY ANOTHER SRC? 399646 : 
CALL FEECACINE) 35965C rey 
IFCINK.EO."¥"IGO YO 150 059666 
IF (CINX.EG.°N"IGO TO 126 ____ -0§9670 
66 FO 22¢ 059680 
= 250 PRINT 260 5 AGRO a BI 
BOR V3) 20 39706 
260 FORMAT(LX,"SRC %,A20)" NOW ON FILE) G$97%2 
GO TQ 210 659723 
_270_FRINT *e"ENTER SPC YO SE SNOEC ~" IGT 
CALL 7EEDS¢(AS RC) CS9745 
_ BOPAV(2) SASQC 85 NTFE i 
BRRAY(3) = 90909 059762 r 
t PRAY ARR BY (2) $977) 
IF C®RRAY (3) .NE.90909) 60 TO 321 IS9742 
SPR |) GENTE anE ENCINO eRe Re See mPa TINE COE ETT REE 2 PS SREE ROE en NC Me ERR i Ps | 
POINT 246 059803 
_ 280 FORMST(1X,“ENTER WON I0,9TY-~(59 IF CCNE “) OS 9Rre 
290 CALL REEDG asoge2e 
MME INX( 1) 3598 31 
eee en 959466 
IF (ns MEQ 0») GO TQ 396 _ 359452 
NNAMN & 2 959860 
__SRREYONNDO i 859870 
BARA YCNN@L) SAS CS9KRa¢ 
PEINY *, “NEXT -" 3$9a9° 
GO fo 29c 36999) 
300 MONFINUE a  .... 959929 
| CALL PUT (IFIT, BORAV,460,9RR AY (1)? 9$4992¢ 
_____ MB TF ETON (LFIT,S as) _ 189934 
Tf (M.E0. oh ‘TO 329 059946 
240 FORMAT (1X, °SRC-" ait." QALSE ACY GN FILE™) 4$995¢ 
60 TQ 339 3$9963 
_ 320 PRINT 329, aS%O 9078 
eRpa ¥ (3) 30 2§99aC 
sl WOO SOG SG Oana a a ee 
BRRAVC(T) 30 f60GC-: 
ANT IN S8S34°¢ 
350 PRINT *,“809 ANOTHER S#C?* “60227 
CALL CEECACINMD eee 96932 @) 
ITPCENK.E0.*¥°IGO TO 270 I6CI4¢E 
_____ JF SENK.EN."NWIGH TO 2280, BOTS 
GO TO 350 36026: 
60 FRINYT *,“ENTER SAC TQ SE SELETEC o* 980573 
CALL PEECSIAS FO) Coe: 6 
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; z £an. 
BARRA V( 5129099 9 962205 
_ eBRRAY, ARGAV{2ZI) OO RE ‘ 
. ° TEISRRAY (3) -EQ.90909) GC TO 386 #60123 
60 TO 420 C6924C 
_-380 PRINT *,.°SRC “.8RR ie F = $60156 
BRRA Y(3) 20 960164 
_390 PRINT *,“OELETE ANOTHE® SRE? CC LIT 
ot CAauL REEDACINE) 36918C 
F x wye z 63195 
LTECINX EG. °N"IGO TO 126 C6029: 
a ca a a ed 
600 CALL FEWNOCTEIT) gé022°9 
ONT TG en se ee et est 
CALL GETNC(LFIT -BPRAVY,SRRAV(L)) 96 0 240 
2 TCH (TE p 
TF ie .e%.19038) GO TO &29 $43 260 
__. IE (AHOLD EQ, ARRAY (23) GSO 70 439 #2323»§=8© OE 360272 
60 TO &10 §$328¢ 
_ 420 CALL CLOSEMCIFIT) — le _ 5 60 299 
GO FO 190 048 309 
nT A 2 
90 4) 223, 65,2 169322 
____TF(SBRRAY (IL) £0.90) GO 79 4646 CH TC 
ITOs ARPavtt) 060 Ted 
a: PAINT 1900 (TINeBPRAVC Lets) NI 
&60 CONT TINUE 069 365 
O29 959 222246 JEU37S 
Sree ¥(T) 20 06C 78° 
_65Q CONTINUE 89 TGE 
GQ TO 410 C€9692 
2 BG ON CG en I _ 38 dere 
CALL CUGSEMCLIFEIT) 96C 42° 
ENO | "963463C 
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_____ S$Ua2 OUTINE AH: WAQ ee 06$9 
AOMON 27A,I0, IP, LENGAG  ITERPEN, TWIS ei MCUNT oMINES ,CFAR, FS EPR, FRX, 160746°% 


______L_ ATE ME ss FIPST sLRUP NOPD FMASS SMAKR PV, = = TS 
2 ersr tay a an veents 060 44C 
EL HOTS (55.2)  CKILL(5 3,2)» SHOTSVIS5 36049¢ 
SOMORTA ERD ORETT TUNIC EERO ET ua tener G60500 
CIMEON/O ATA FOS (80 92) CREWS (5392) p APOS(12) pOPOS (6) eITHEAN(29,2), 960510 
1 PSN (60202) PLT (25) QKEV (L722) 960529 
ROMMON/ONE/LFEIT (38) pAPRAV (90) MV SUFCECZ4) S699, 2) ACT ey _______s« 340830 
LASCENE,ASECT 360$46 
COWMON/THREE/IMIST (35) ,4(90) . fC ISUF (25263 0869580 
COW ONZE W/ PCOGR 124 41 o ECGUNT (a) oTSAOKE (2) FCSAG ZY, PRSSM(2),829 (2) 060560 
1 sNHUL __063579 


ste nero a ORE (70258) 0 OKC 220) oSSK(L2e le lOd nV (5) eRINC(2) eWEAPC(3). 360542 
ASF AC T(12 0 2d ePKILEL (128 PF RKIL EL (779 TMAEK (od gk eo a2 de SA tT) eCELn (7) 5 969596 
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OIMENSTON IRAMO (22) oT FIAMO(L2) FAG (39, 8CO15e7) PCNSM(2) pPCAC( 7,4) 8359625 


_OLAENSTON PF (12) 9SHTPS(12) OUST (6,200 2) | 86063C 
CATR CUCCUST CESK) ep SEL se 20) pLaly od KB1, 297 ~ 960640 
Lb WPL 60920 e S50 0800 PSs oP hs bp 3 Lene 3BpoSoeP?30o67veSte2esbJe  _—=s IHL ESE 
SC SFE 9 9 095 0c Be e727 s 09 208% oe 4 9 OO 96966C 
274 4923 $2,273 CYre Dry s. *¢ 365676 

2 39d cp eI eo eS a ole eo Gse eGo che 03 Sestle yo 929 0 799 2 BO, Se oe ce Sede coe 960689 
3 278 0909 p07 0 69 SFI 0 9 2Pt op 07 Ny On 0 3.4, 576 oy _340699 
5 | at PEEL PERT TERT Yar 6S 4. 49, ololny 0 29 yb oe 0 9B 0780 0955 550 ue Ole ny 260 060701 
1 06 pDe, aa 360715 
2 Zl +s 880» 7h s0815 50s 6296 CSo2*ODee 160729 
e o Finn 0 S89 0 HOee 3 960739 

2 281 o 00380 che cSGvctlone = TOceleec dS vclecSeeculvedd ue ies 3163766 
3 Lee 9 097 9 cb? 0 43 96*0 ee Le 90 829 0 $29 0 £48 *00/ oat _. 9667S. 
CATA COCOPOCT coKi p81, 8) ol BL 57) JBL e2)/ ~ 960769 
AMM es 360770 
8*9 oe 0507a8Cc 

; 16. 057d cL 200. 8s 36C 795 
TP PS Co Pe ee Pe es . €6c93ae 
sacl OOO ge ces a hols er cea at etn neces ges ee OT 
6 4°0 oe 063423 
LL ee ee ea ee Pe ee EI eT Oe EE |. JE 
1 O*§ .eGbaedes decodes 360 86C 
S 39h op eo 129 6 yp 2O00 0 0G eo See J6C8S¢ 
3 Doe GerG os Toy S* fey T6C 465 
Wo Tegbe rd ey Dee t28o 2000s rdee Der __gatare 
S 160 eGeeGerdert28e es Des 200 ee 160886 
& Dee De eDer Hee i 2Be p29D0e Doe Ses wane _... L, 169490 
? 8°9./ 269999 
CATR (CSFACT(ILT J) pLEt,12), JBL, 2)/ I6C9Ls 

9 219° 2.8663.82,2.86e 569922 


a tr ee ee eC 


M-174 


A ES ay EE Een eR ET a A — o —  U —  — 


o 


ree eee eee 


___ B22 96e 393452584 : Ih093¢ 
DaTa (COP AVC I, JD eD3t042) 281.2) / 360965 


eee We) 1. 25 Cy eC ee ER ee ee ee eee enema | LCT P| 


3 eH 90 9160 930 950 95s 3603960 

? 74 ? td £6097¢ 

Bo HF 0 093 po BS e 0FBS0 0930 0935 09S oc FSy e955 oe D2y 04996C 

PS 95% oh 30 28be oh % 29 o7 8. HIG 

R .83s9*1 25 16299 
—___ F_« G 2.255 00930G00e86,y HEE 
& 34,795.62 0-008 361322 

2 Pe) 9 > 

R 6%. 85 43%.8 355%. 85/ 26106¢ 
PATA CCACAVE Ty Jd po Lain 7) s Jai 02) 62% 065 02 70 Bi no Os 0 790 809 322 7h 8619 5¢ 

103%. 610. 8i/ CALCEC 
____-_ DATS (VIE) o E2105) 10 05 9F 06500450 SZ HT 
DATA CKINOCT) » let, 2)} SPU UE NM, WRENN 26L289 

ATA (WEAP 2 Way 5 36199¢ 

HATA (TMASK(IT) ,- 121,437 6* .6 €/ s6t202 

___ MATA CC ASCP I(T, Jd pL aiehl Jz VJLeotevdes Ce Verso les Tes G6i2i5 
A Leolestestes Ze Coaden Cel 361122 
FATAL UATFLOS (KoT oJ) oK84 513) op D2t 97) pdt e2d/18 2°94 GA 
PATA COCGNELOS (Kol J 15K21, 9) LAL, 2) yp S21L,23/67290./ J6116° 

ATQ (ACT REW( J). J2 9/2*9./ 962:50 

CATA CTRAMO CT) ol FL4 12) Soles OS 96 oS OT pb peers 2 Sie lei eSe/ 7681162 
CATA CT SAMO CTD oLBd 61297 Ge OS 90 035 7 048 009053 05253955 S4/ u6Li7e 

C 3622496 
wt POET ORS gO UO Or Oe RG ah ts OE EIS 
CO 190 TELZiLe2 3€1296 
PENS” 2(2 2 PC SMOCTELD DF (1 PCS MOC SoLELI/S2Z. ALL FOSSACITELI 364722 

100 CONS TINUE 361225 
cetera ha WA rare a ps as Se en ee eee Oe ee 
TF(CV.EQ.SIL Vee IAL 26S 

_ SECT Ve EGeGOTVRH AE 
NORO #1 461260 

IF (CSOAYL-EQ.“*O0AY™") NCROB2 VOL2?: 

CALL SPENMS(CS KEY e272 0) 262129° 
CALL REAOMS(S SSK e260e39P IA 
c 60 9995 121,246 WL 30C 
GC  . SSKOTiSSSK(T 94.9 2 se EE 
69998 CONTINUE 661327 
CALL SEAEMS (3 »MAXPOP . 1%, 379) 04133- 

CALL CLCSMS(3) G61 349 
Bue) pe a a Ny Be ee Ng a ee a Se ee ep 61 Se 

00 110 222,98 CSL 362° 
snc CT mG a a eS a Petre 
110 CONTINUE 262179: 
30 FORMAT(™ INCOPRECT ENTRY <o-TRY AGAIN™) 35% 338 
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CALL <EE CALINX) 36142% 
_.____ TLFECINX.E9."V¥"IGO "GO 160 8 238=— 361 43¢ 
TFCINX.EQ. “NICO TO 1299 361662 

GO TO 159 561652 
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160 PRINT *,~ ATR OEFENSE /ARMED HELICOPTER ASSESSYENTS™ J E2675 
JVIS2IVIE 361442 
______TFUIVIS. EO.5) IVIS a6 ___36169% 
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TF (9.£9.2)G60 TO 168 36161: 
NCL212 06152: 

__._ MAK SSQ __._. __._ 381$ Fl 
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pe len DED LOT ss i Eh i a ee OR eS es OE OG 
165 Teyuts-, 36158" 
AHis aH” 2£1572 

CALL CXSTOP (Ani, IS8uT) 361545 

_._.___ NOw2z$1 94H 599 
NMAX299 161605 

See eee |._> A RRA RCTs avert Cope CIEE ene eT ND? ene a ae ott BLS S 
167 L2ete-J 96162: 
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TE (SH eh Eee 259H8.2 361642 
OY ite aha de Nai, oS 8 A ke ga len ee oe OE 
TF69.EQ.°0) JPSNE2 361666 
90 470 %8$9,65 Rl a es ee ted oe ee cot = DEBTS 
TFUCELMT (Koh. GT2003G0 TO 299 16165835 

£70 CONTINUE 96169° 
60 TO 1120 861792 

_ 180 FRINT 2196 .KINO (0) KINOCLD G6L7210 
2190 FORmMAT(“ 00 vOU WISH TO GAME *,a4.° ADA ONO ~,AG,* O70 ~*~) ~~~" 461722 
CALL REECACKNX) __. 361732 
TFCINX LEO. “¥")GO °O 200 J51L76C 
IFCINY.EG.°N"IG60 TO 12448 382 75Sc 

60 TO 180 861762 

Cc -——s«_—«sC SET AQ ENVIRCNMENT 7 cen GBL77S 
2038 POINT 240,KINOCJ) cSL7 40 
_ 240 FURMAT(//" THE FOLLOWING SETS PACAMETERS FOR “,44,% AC WEAPONS "/) 961797 
~ 220 PRINT 230,KINOCI) | 2613995 
230 FOPMAT(" ENTES “,AGe~ WEAPON CINTIGL (STATUS) FACTOR a rat? 
CALL REF CG 361325 

KTRE SATNXO4) 1G 

ARRA YINCL 64) 2KTRE J61465 
__TFURTRL.GEet ANO.KTRELE3IGO 7D 750 _ 8 SBLNSE 
LFECKTRL.EN-9995GO TO 208 161962. 
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PRINT *,” WEAPON HOLS eee cccccneeEN 2% 3” 364303 

—_____ 60 f0_ 2613245 

250 CONT INVE 361922 

PAINT +, “ENT N : - « 61937 

CALL REECS 361962 

aX 961959 

ARRAY(NDLe©2)aIR 061960 

______ TE UTR sGE et, AND eT ) Be 7 ____ 864976 

TF(tIR~EQ.999160 Fa 260 0641986 

PRINT 161990 

260 nt to *,"“TF RANGE I$ 500 ENTER 1° 962 36¢ 

od o,” 1629iC 

SRINT os,” 1$99 fe v62c2°c 

ac LN I On Oe a or 16233¢ 

PRINT #=,” 2504 a C62966 

RINT .. bad = §& 7352 

PRINT *,@ 3800 7 86266. 

SUM <1) 4. Dati tae Oe eee 9090 a ety PE ZS7s 

PRINT *,* 4$09 262983 

REA.) |. 1 Ded a re + ae oC _ 36279¢ 
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CALL OPENMS(3, KEY 6172.0) 36212: 

INGE OQeTPe ((TVIS<1)240) oC (NOREW2) 960) 16213 

CALL REACMS$(3 ,ACO,35-¢ INC) B62t4&¢ 

___ ENEBL29¢ INOEXS(IRNORCoL ode Delete Ged) Pa sett _ 992159 

CALL REAOCKMS (3, PNAC, 28, INC} 66216) 

ic ote 362172 

CALL RPEATNS (3 PK, 226,f iC} 3621485 

c 909999 [Is1, 226 62296 

CG PK(T 92PK (T)*.5 26229¢% 

C9999 CONTINUE ee CHA ALE 

Cc 362229 

CALL SL CSS (3) o62236 

280 PRINT *,"ENTES FESCENT (DECIMAL) AQ COMMITTEES SY SANGE FACTORS.” 16228) 

PRINT es) 9 “SHORT ME CI UMeL INGom oa 262255 

CALL “REET 3682263 

PAOCLISXINX(1) 96227" 

CAN 2) ax INx(2) 762297 

CADE 3) MXINKX( 3) J6229° 

ARRAY(NCL © 3) 2P9A0(1) 3€23G¢C 

—_____ARRAVINGL ©6)2P4Q0¢62) ANTE 

cig hgh Patan i, 362 222 

_____ 00 290 N#te3 162324 

IF (7 AC(N) -GEe 3c eANGe FAO (NILE. L126I16C0 TQ 230 —C~*# S62T&C 

PRINT %. “INCORRECT ENTRY --MUST JE 3 ET WEEN ANC 1. ™ 242356 

GO FO 246 362762 
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_ 298 CONTINUE A Oe Ee ee é 82372 
300 PRINT 310,KINOCS) 278 
—310_FQPSCAT(" ENTE? PRIORITY WEIGHTING FACTOR FOR “.AG.” ACA TARGETS (4052 39° 
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WEIGHT SXINK( 1) §6242¢ 
_.__—_ ARRAVINEL>6)2WETGHT HZ] 
ITF (HEIGHT GE. Lee ANQLWEITGHT 0LE.5e1G0 TC 32¢ J6244C 
PFINT 136 GE H245C 

GO To 300 G6248¢6 

329 00 330 £231,462 Ch2 a7? 
FOSCT. SURF PS (I,J) oWETGHT "626867 
= CONT INUE __ 92496 
SET FLYING TIME &NO @ SOPTIES PER HOUR 26250¢ 
PRINT OQ,KINO(L) _. 9625125 

34Q FORMAT (7° THE FOLLCWING SETS PAPAMETERS FCR *,44,° HELICOPTERS "/)16252¢ 
354 PRINT 360,KINO(L? »ATIME 962535 
36 FORMAT(™ ENTES TOTAL FLYING TIME FOR “sfeo® A/C THIS CI (MAXS “,FU16256° 
Lete™ HAURS)- oy bet ase ise ae 362586 
Cali REE OG 662666 
____ MaXENY (1), sa Seth a a ___ 962575 
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tri EG."N"WIGO TO 1036 366266 

iD OD Oa a en ee ee 
t03a8 CONTINUE 9$629¢ 
A060 TF 60.2960 7O 4069 OO TH IE 
ITF CCELL C3) ED 09. -OR-CELL (4) .EQ.0-91G0 "O 1042 34633° 

PRINT *, "TH HAS “IX Ad TYPES” 966 3t2 

GO TO 1949 366 322 
AQ62 TE(DELL(S)o4€00,9G0 TORN SG ERE 
NiSBNL Set 966 342 
pon NGS OND SE OT On 2s ge DGS SSS 
KKz3 066 360 
GOTO 164E 1€6 77° 

L066 TFICELLCS) -LE.0.9160 TO 1949 3663495 
NEGBNLG* De 9H F92 

TNG8 91 9N 1646 2 €669¢ 

_ _..__ KKB gaa est eS ce Ne 8 lg ee a he Se Nd Nhe ee hee 
1946 AMEE NCI #KKe10 §5642% 
Art z (KK) J6643° 
GAUTNCseseceLL URKDSIGECE CRRA 1$666% 
~_-__OT Va AW (ENC OZ) CACKILECKK LIZ Ge CO 
IFCOIV.LE.9.1GO TO 19 ug 266462 

sete RG SOROS ON nn tet wee eS 
BHCC NCES ABU INCHEITEDS 19644¢ 
1044 AH¢(2Q) ant IONLS 3@649¢ 
TFCAM(LO) LT.20.960 TO 1949 36659° 
__PRINT *,"NO MORE SLUE CELLS CAN 3& FLCWN I ECTCR.e «=: 2665485 

GO TO 1960 ~~ 386522 

S$GRD PORNT 20502 NO Cy a N58 T) 
1050 FORMAT(* O06 YOU WISH 10 FLY ANOTHER CELL CF *, fa,” A/C? at (586545 
CALL PEECA( IN) 16655. 
TFCENK.EQ.*Y*%1GO TG 449 166562 

__ _ETPAUINMCEQWN™IGO TO 2060000 BEET 
GO TO 1940 2665 3C 
ine CO 1070 2 St bd Jn, ee are ee Ne RI TNE hia 

9 FPSTI,y) sFPS CT, UP WET CHF 166603 

00 £990 331,18 3656122 
LFIGNCLOS(8,I edd LE CEUCMT OCI, UP SOPAVIT SO UIIGS TO 1098 35662: 

TFG NCLOS (600 e st LE T0IGS TO 239€ __...—,_: 364632 

CO 1080 KKate? I6REGS 

1080 GNOLOSIKK eT pJIBIGNCLOS(KK TJ) /CNOLOS (Bo. Fo STV SELNE (2s NUSRAT oot 166€57 
GNOL OS (86255) BELMTC TI, J) fOPAVIL. J?) C6666¢ 
3000 CONFINUE 887 
00 1110 [21,42 76663> 


ee EE a ee ET A ree AA GA me = ie A ee me 


- = WL 


af 


Se a a OOO SE 
KKsk ~§4 2686732 
z bad e , ; 
ALOSS (%, I) BAL OSS (K_ I) oLELIXCGNOL CS CK Ko lp J09210 0% e002) SPACK UU) 16672° 
73. 
1100 Liat -30 CS674C 
eh 2D BIFIN(CSTOLOS ITT  KKeL IMIG ee SILO. (366752 
ALOSS Lyx bead O58 (TK) +L IXCAERUOS (ZZ sKKot fet, SELV=PHEKTL 366763 
b oLFTY KK ol 1 FCREWS (Ko 216 oe JIL) 296775 
ITT 946780 
e 7.9% 
Tf (ACCREW(L) GT ELNT ( 200) DACCREW(L) SELMT (2.1L) 966 80¢ 
Fata eg A OS OU ha ar te SE 8 ee OO 
1220 POINT 1230, INO(L) 36642¢ 
2130 FOOMAT(@ THE “, Ab.” FORCE HAS NO HELICCPTERS™) G66 432 
£140 CONT INUE 96648466 
¢ wi 60 7 366450 
PRINT ©, "O2SPLAY LOSSES? oa 26646¢ 
ay __ CALL REECACTYND 7664575 
LFIITYN.EQ.°N"IGO TO 1280 9466 44C 
_..__. ODRINT 4150 = 5H 
1250 lala Me, 26699° 
NT 8, “SewwwonorAh/AD ASSESSNENT Son wo cceon*” 36691: 
paTNT 1160 16692: 
2360 FORWATIN T*,SQKoehT™) GTC 
©O 1279 Jat,2 056945 
___ I FLAGs0 ae eee ______ 316695¢ 
00 bee 121,65 . 36696C 
LA b3.ANOL.LE.58I1G0 TO 1260 384975 
CTE §§694¢ 
______ SFE Pe 1H ANORNE139GO TO 21479 = HIE 
TF(LT .GE~S9-ANM.I.LE.65IGO *O 1250 36709C 
CLOSTEGNELI9S6 8,2, 3) SCPEWS (2-1 2,5) 8714 
1270 AKILLSIFIYVIGNCLOS (6 57559 21006.5)/10. $67C2* 
LFtr .€2.2) AMILLZAKILE PACE RE WC S) 147173¢ 
14280 TPCAKILL LT ee Le ANO-CLOST.LT ee tIGO TO 1246 : J6726° 
_ IF(ZFLAG.GT .0)GO TO 1240 _ 18726¢ 
TFLAG2t J6796< 
EF (9 E0. 2960 TO 1199 ee 2) 4 
PRINT *,“T TATAL 3LLE LOSSES [= 36774K¢ 
69 TO 1290 1§799¢ 
4190 PRINT *, “Tf TOTAL REC LOSSES QB7297 
4200 point ecn~ grew skost. cRew te me Llers 
PRINT 11606 “367127 
£240 FECL tet eANDeT NEL 260 TO 1230 __... Iba X 
PRINT 1220, ats ARTCL Ch OST Q7Le- 
20 FCkMATI” 2,Fe Pol 7X5 *T) 16745: 
GO to 1260 26716: 

M-187 


ee AN ree tt Ee rn ee i eS SAS 


= ae MI 


———- re ee 


 — i A ee 


A23Q_ORINMT 2260, 02 4KToe TLS 


1260 FORMAT (CW LL eQK oT SeFGele lore “I? 96729. 
i, GS a as ee GTI 
1250 CLOST#AIFLOs( 13,6959, JP*CHEWS( L-t2eJi 367295 
AKIL ELSIF IX (AE 2L0S (33,5258 .39%10.%. F9/10~ 06722) 

GO TO 1149 967225 

4 IL, 5), ee ee ear mmerrel | LAT) 
TECTFLAG HE.OPPRINT 1169 JA726C 

LF(L -E9.79G0 TO 1278 _ 9972538 
PRINT ®%, *8 cece ccneesn > cove eens cones eee cen eeees” C6726: 

PRINT 1160 3€7273 

L270 GON? INUE §6728¢ 
Be et Sat faa EL dnd ect halted cried DE Oe LAL Fe 
L280 LFC(IRUNLEQLIFOINT 4,°ANSAC ASSESSMENTS SFRINTED HERE™ 36739¢ 
pO a a i ee 
CALL L0SS159.6551+42,INX) 067 320 

CAlt LOSS( 32, 42,59, 65, INK) G57 33¢ 
TFCENX.EG.“NO™WIGO TO 12¢¢ 867 34° 
GALL CKSTOR(AML, TOUT) OO 8S: 
TeuT st 367 36: 
pena) | Sache? SRL, | * eee ne Ne a ene ee Cee pe eee RE SET A 
CALL CKSTOR(AM1, I SUT) J6O7349C 

90 21295 £33,312 167399 
TNCBLLe(l11%% G674G° 
mente bd, ddl) ee ee ee eR eC ee eR Re ae ee 8. 
AKII NC 62)eSHTS(T) 367427 

ee OO Ce hip a a a ee OES 
CALL CKETOR(AH1, 1 PUT) 16746: 

c : 29765° 
TOU? amt 36766C 

ts ORR ON ah ah et 
CALL CKSTORCAHL,T FUT) J67GR; 

eereeeres se 4, hae S > © CY | ee ea ee re nh a ee eee ee eae ene ori mene areata | Cag: |S 
1287 AH(T)2ARRAV(T) 1687502 
CALL EKSTOR( AML, LIUT) J6751° 

PRINT 1150 : 15752: 

oe 1-1 |» aR ee a ee ee eS Ge 


ee en eee Gs wr eee 


———— NS EP Geer me 


M~-188 


A me OR rent oe ene ee ee, 


Cc ; 574973 

CGGGGGGS GS GGGG G6 GGG SG6GSGG 4G% 3 & 365656 6696666972394C 

vg 371996 

C__INIS LS IWE EXECUTIVE ROUTINE FOO THE JIFFY GAME guTPUT PeoCESSOR 372295 

C TWE TYPE OUTPUT TO SE GENERATED IS SEY ALCNG WITH THE AFPOOeRTIATE 97 234° 

HEN « v TC ACTUALLY ACCUMULATES  J72320 

C THE QESTRED GAME OATA ANDO CREATE THE OUTPUT FILE. ares 39 

172969 

C SUSSQUTINES FOR POSTE ROCESS OF FOLLOW FIN THIS GROERS 372059 

fr 

C 2. GITNMS3 aeTRETVES ace NAMES ore SETS VAFIA3LES 372973 

t? RETRETV y. 972986 

Cc &. COMMIT? FILLS an ARPAY FIDE TK CORPITTED UNG 372390 
UMTQ?T?: COMPUTES “TOTAL” — 372206 | 

Cc 6. SUMUP? FILLS | var lous Loss anra v7 2229 

Aa 

CG 9. REPOF T8 maLEe aaaetues WHICH  CENERAT t ACTyual GuTsyr 37213) 

Cs Ge = EC VE YS ~=6CREATES LOS Ata GE STH&IAUTTON SIS", FARE s7214 

C 10- «ItLCaAT? CREATES LOSSES av SCURCE OF LOSS TABLES 3722159 

C_dte BULLET! CREATES AMMUNITION EXPENTITURES TAILE ____ 372169 

C 12. M*ILVIC® CREATES KILLEP/SVICTIM PATRICES 672279 
% PT PTI CNA EW*"S GENERATE NTEPACTIVELY 072139 | 

C te. RATIOS CREATES %TIO STATISTICS GUTFUT 772192 

Cc 15. NEWAGt CAUSES SPINTER TO PAGES WRITES BRIEF AACE HEADS 572299 


C 16. T2ACEt GENERATES CHRONOL. STATS FOR FART. OR FULL GANE JUTO* 07222; 


eee PA Pe ONE ae nr PAV EAY is Ae AE ___ 972223 
PITT TTL LL. labimlelentatcatatintabaabialabalacslatnlsieLalobe latalale labels latela lola bale uae NMPM MM MMMM MMC 72 230 
172246 
COMMON LAs Loe 2P oLENGAGs ITERRNe IVIS »IMCUNT eMINESCFIP,FSFRS FO, = S72 25. 
—_—_-h_ATLMEsIFIRST s TEU Re NORQ sFMASS ¢ INAKKV, ——% 72263 
2 SFC2),FSSF (2) .PACK (2), I7227¢ 
____3_ELMT (50 22)» ALOSS (66 556)» SHOTS (55+ 2) » CKILL (5352) oSHOTSV (5592) 372248 
COMMONSS EED/SIR YY» XINK( 4) 6 TCARD 129) o TAR PCR 172292 . 


MON /SOAT ASE OS (6052) 56 FEWS (5342) pAFOS(121,090S 16) pI MER 412552) ~72333 
L PSM (692529 -PLT CLS) KEY (172) C72319 
COMMONJONE/LEITISS) , A272 AV (90) AYBUFI 102%)59(6002) ACT» ASCENE,ASEC "172 223 


COMMON/THREES INIST(3IS), AM (99) ,TYBUF 11924) 372332 j 
COMMON /QUTPET/CCL (2) 9 TOUT KINO (2) oTOTALUSe2o2) GEGIN(GSe2)yNCILy I723460 ¥ 
© WCI2 GAT LOS (65 oL39 2) pCATSUMELLg2) g TYE CS), 3RaGl(iGe iC) eNGFIG 172362 | 
172363 § 
C **#8 {INITIALIZATION *54 17237: 
17239¢ 


TYPE (1)S"CNE SECTOR” 172393: 
TYPE (C2) 2°PQRTIAL CIM «172899 
PyYBDECIoe” FULL CI ” 372649. 
TYSE (4p e“PART. GAME” 173462¢ 


YYPE (Sis FULL GAME” 


a re ee et ee a 


172u3¢! 


—_— —-— .- —we 


ee ee ee ee ee ee 


——— er 


XCI2 ACT 


swe SOT OR ne ee ee 


Tout 2t $72675 

E* (x SECT -EQ.0 eI TOUTS 9724640 

IF CKCI EG. 6.9 OUT 5 972496 

IF (TRUN, EC. 3eGReIRUN.GE»69G0 TO 215 472500 

IF (KSECT .€Q.0.)960 TO 1469 372523 
Be thee et oe eel 4g 7282¢ 
£90 PRINT 110eXSECTXCT 97253¢ 


FORWAT( SECTOR OUTPUS FOR SECTOR “sF6.30" OF Ci “rAL Se "2D? 


CALL REECACIYN) 172859 

_ £20 FORMAT (at) __ 7256" 
IF(TYN.E0.“¥")GO TO 220 672879 
___._TFILYNCEN“NWIGO To £460 2 IRE 
PRINT 136 372596 
FORMAT{(* MUST y nN 072620 

GO TO 106 172611 

en aE ORT is eT Pe PERE ee pee EE 8 SS Se A Teme eS 372626 
440 PRINT *,“SELECT GUTPUT DOTTON (0 TF OONED= = * g726%C 
______ CALL SEEDW ets a maa _ 372646 
TOUT SXINX( 1) 172565¢ 

© tT r 272866 
TF(LOUT.GE.1.ANOLOUT LESIGG Ta t72 97267° 

LF (LOUT.&6.9999GO TO 168 17268C 
PRINT 150 172690 

_ 250 FORMAT(~ INCORRECY ENTRY “) eT 
PRINT *,“LIST OPTIONS? * 972723 

CALL REENACIYND 17272: 
ITF(LYN.EQ.°N")GO TO 140 37273: 

260 _SFLNT %,” INPUT _OUTPLT CREATED ™ te W727 
anda *,” 1 SINGLE SECTAR “ 372753 
POINT 4, 2 PAPTTAL CI (MULIZTFLE SECTOR) “ —— _... 97276) 

PEINT 4,” 3 FULL CI “ 972772 
CPINT >, & OARVIAL GAME (4ULTIFLE Cc) ™ 172790 
PRINT *,” 5 Full Game “ 17279: 

_ GOTO tod bee ees u723gac 
172417 

179 TF(LOUT.EQ.49GO TO 20 3724923 
IF(LOUT.E9.59G0 TO 210 “972937 
PRINT %."Cl NAME> °* 372 26% 

CALL PEEQBCACTI) 672952 

_ £80 Format iato? 87 2962 
ASECTs9. “Greer; 
_IF(LTQUT.EQ.3)G0 TO 229 ___ a72aay 


PRINT *,"SECTOR @- * 
190 CALL REEL 
ASECT=zXINX( 2) 


ee = a | ee ry tr A a A — nme AA |r 


72S 40 
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ear em pe a er ee ee a Se et I ge mee ~——- 


ee ee et) 


/ 
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- oe es me a 


pmeneyraey © wh) @ bs ea Ege 
WRITE(70,* ASECT 372932 
PRINT *,°NEXT (0 TF CONE) = a 372952 

260 PRINT *,“OUTPUT FROM CI - 172971 
WSR Ai el: (se) © @ 2 Se ee a a ee eae Ts 4) fe 

ORINT *,° THROUGH CIe- = 372995 

CALA REESBICCIC2b) 9 
37301° 

soe Tt U TINES WHICH CREATE F&F oe 973626 

C 3173031 
210 LFCLOQUT.GT.»3IPCALL GITNMS 73548 
220 CALL ACCUM 073559 
RL LT, a ee RENE, A | 

CALA. REPCRT 173273 

x 739 8¢ 
TF(TPUNLEQ.3.OR-ITRUN.GE.56)G0 TO 230 €7339¢ 
NN a he ee i TO 
230 act=xct 473222 
sds ou BO cn hE in a 
TFIRST 20 972139 


ee 


ee Oe, 


hh Sc nn 


a ye 


— ee me ee 
ee A ee ee - oo 
lS a we em — 
ee te A i a a we ee ee ee et he —_ —_—_es —_— 
ee ee i ee ae ee ee 
* 
- 


- en ge a phe ee a a 
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a. 


— —..__-SNBRQUTEME NOUTENFLD IF TLS 
Cc 


373177 
SOS SRE NOE RRS ea Rie eRe eee ae ee eee eee 6666669566663 57524. 
273197 
c A ROUTINE TO ZE20 GUT ALL ARRAYS USED TO GENERATE AN SUTPUT C7320: 
C FILE. tT IS CALLED @EFORE ANY OUTPL?T IS CREATED. O7321: .@) 
ee a 7 97 322° 
rl ldli. lous LLbbbhbldLhidulihhiiblalohhlddliiiiecol hhh ilbntr oa boel tLe 7322 
47326: 
COMMON TAslOe LP, TENGAG, ITERQIN,G LVIS pI MCUNT MINES CFF RFSFPC, FIR, 5273255 
ATIMELEIKST »I9UN, AOSD DEMASS pL YBXKY 17326: 
2 SF (2) SSF (2) »PACK (2), 373273 
____ 3 ELYT(80 52) » ALOSS (66,5 66) » SHCTS(55¢ 2) GRILLES. ELE a el eS Ea 273280 
COMION/D ATA/FPS180 42) C2EWS (S392) eAFOSI12) pOPIS(B) »ITHETM (29,2), 0 7329C 
Bere re eit ih 103394 
COMAON/ONE/LFTIT (35) g ARR EY (90) 5 YY BUF (1324) 00069992) eACl eASCENEs ASEC 27321" 
COMMON THREE/IHIST( 35) AN (90) » LYBUF (1024) a7332: | 
COMMONJOUTOT/CCI(C2) pLOUT, KINO (2), TOTALC 3,752), 8ESZINIAS.2),NCI1L, S73330 : 
® NCI 2.CAWLOS (65 513,2) pCATSUM( i152) op TYPE(S) eB 2G (1 Te 10) »NERIG _ A733: j 
; 00 £53 Js1,2 ae rae ~ g PSTSY J 
_ 00 £16 %21,65 __ . _ = nn 5-4 1 
i CO 209 “21,13 373377 
‘ CaTLOS(l .K,J) 20. C7385 
100 CONf [NUE 73397 
P ELM (2.5) 20- __.973460° 
i RECIN(T, J)80. 373413 
i gan nh TS Cg ah sa sh 8 i i eo ee ot ee 
A gi 110 CONTINUE 373437 
ie 90 24,3 T734uc 
4 CO L20 KKery2 nea: 
j. oe Tora LITI oJ, KK 20, _ 87 5 6 KE 
: 229 CONTINUE eRe Fe ee ey 5 73467° 
, ls TS Ua Oa a On 
} CATSUM(IN, J) 29. 17349¢ 
: 130 CONTINUE 17353: 
: 80 £40 T#1, § 37351: 
' SHOPS (fl, Jide ee ES 
| ~ 160 SONf INUE 317353¢ 
____IFINFL.GT.29G0 TO 150 . pee tn ee Sales 
Ceri siac. —S 172657 
150 CONTINUE 37388: 
£0 160 «21,66 J73E7* 
_ 00 £69 9240658 0 57358; 
ALOSS(K, I) #7. 27 rgart 
: __160 CONTINUE wn . SPS6R 
IFINFL.GT.L)GO TO 140 O7354° 
BS Tad ak) 1: re RR (CS 
AH(I)=0. 7343" 


rr 


_ i dae Sa SoS Sa ee Sa rie eile caehiadet ees es ate 


eC ee ere een inte 
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NUE 37364 
NCI1L 29 27365¢ 


17366¢ 
180 PETYON a rtGee 
ro d 
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I 
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ele a ee eee oe eee eee 


i —  - —c r, mu: my 6 ee 


A oon 
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ROUTE GET NS ET 


373722 
Cencesccae ccananccaceccasaaesncccascseseccscessascccascacesccsaiceaesessa7 372 
373736 


C THES ROUTINE RETREIVES THE “CI NAMES” RECORD FIOM THE HISTORY 37376¢ 
C FILE ANO STORES IT IN “ARRAY*. INCEXES ACI2 ANO NCTZ2 ARE ALSO SET 97375. 


c FOR THE TYSE OUTPUT TO 3F GENERATED. 373786 

97 277° 

iss sa Gastro td gad ads oon NC aE Wel em Rama ameSOEMaE TTT <e 

Cc ¢7379¢ 

COMMON O, TP, LENGAG, ITERRN, TWIS eLYCUNT MINES CFOR FS FOR, FRA, 17 3aG" 

1 ATIME,ITFIRST »,IRUN, AORD ,F MASS, IMAXKy, 97391C 

__ 2 SEC2) oF SS E12) PACK I2 Ds ar gees 

3 ELYT (9092) ALOSS (6 6,66) » SHOTS ( S42), CKILL (S352) » SHUTS (55e2) S73a3% 

_____ COMMON /DATAZE5$ (8002) .CREWS (53,2) oAFOS(12) pOTS (6) e TIMED (2592) 9 _S739ue 

L PSY (60202) ePLT(LS) KEV (L714) a7 %96¢ 

COMMONJONE/LF ST (35) ARRAY (99) 0 AY JUF (29246) 018392) ACT, ASCENE, ASESTIFI 96" 

COMEON/THRES/INIST (35), 44 (99), LYAUE (1926) J73a70 

___-_ «<_ COMMON/NUTPT/COLTC]) pILMUTeKTAC( [SP TOTAL (3 e202) eFEGIN(ESs 29 sNCILe  IP3SAZ 

® NCT 2, CATLOS (6502352) sCATSUMN(11,2) ~TYSE (5) ,9F[G6(29,19) NOFIG 073399 

_ GALL OPENMUEHIST,%l-00t42) —s—C~—~—“‘“‘CS™C#*#*C#Q QC 

-AWM(LDa"R Tl NAMES” 373922 

AP(e)s | o7390° 

Cau GETIIHIST,AH,4H(1),0,10) I7 3933 

—____ CALL CLOSEM(ZHIST) _—_ ae eee 75982 

TF (am(a) NE. 99999.9G0 FO 209 973955 

C 899 ERROR PESSAGE“-RPECORE NO FOUND i 7 2968 

POINT *,°NO CY NAMES KECORO FOUND ON KISTCRYFILE.* a7397¢ 

c 1739a¢ 

Tour #3 373907 

_.. 690 TO 280 eee AFH GIF 

¢ 888 TPANSFED FROM AH TO ARFAY 076019 

206 *O £20 [24,90 8745 29 

ARRAYCLT) SAM(T) 5 ?633° 

110 CONT TINUE 37466; 

IF (f QuT.c9.5960 T5 163 174252 

C___%** PARTIAL GAME OUTPUTS-fINC SPECTFIEC CI°S! SET NCI2,NCI2 = = 3176063 

: 176972 

MO £20 £26.90 976987 

LF CMARAV(T) .EQ.COCICLIINGI LAL ~ §P7algs 

TF (ARFAY (IT) .E1.CCTE 2) INCL 2e } 17413° 

120 CONT TINUE J7612¢ 

TFINGCILONE s CoANDNCI2.NE.CIGO 70 160 _ PGL2t 

LF INCL1L.E9. GPPRINT 130,COI(L) J74L32 

_IFING2 20EQe OP PRINT 230¢CE IC 2) ee bas oo 

"$30 Fornmar(™ CL “,A10,* NOT ON RECORO FOR THIS GAYE.) 27615 

OUT 2: 576th: 

60 TO 269 2747: 
M=194 


ee —r  e  — e Le eS Le = ce ew _ 


- eT + le aan, maps mem nd 
. 


ee ee 


— 240 TF (NCIL LE NCTAI60 YO 209 0 SE 


PRINT 1$0,CCr 976192 
150 Fnpwarce CY “A429, COMES ASTER CY “.420G." IN GAME™s 2G 
* ~ GORPECTION MACE.™) gas: 
NNENCT I = 2422s 
NCIL enct 2 37623¢ 
sp I i I SG 
HOLL) eCCr (1) 378265 
GOLU2) SCCe fC OP oe ee eee ee eG 
CCLIC 2) HOLD I7427° 
69 T9 209 376428, 
CG 376299 
Ce FULL Game OUTPUT o-SET_NC TL. ACTS, COLiti, 8Cecet 2°7 sss BP TGL 
Cc 776342 
a nn a ee Se 
Of 179 [346,89 376332 
AY (re , hd &3&: 
nCIl22f 37635¢ 
Sep ag OE Oa a a ke OG 
1798 CONF INUE S7u370 
_NCT2s90 = ite a: hee Sh eh 176383 
130 ACI 1) SARRA VONCTI2) 374349C 
SARRAYIN S74ase 
LF UINCI2.GT.4I160 TO 199 *7eaLe 
C #5 ERRCRo-aT MOST ONE CL NAME ON FECCSO (nO GAMING) *¢ es _ _37@e26 
ce <7 4u 32 
______ PENT %, “MISTORVFILE SWOWS NO GAMING WAS BEEN COMPLETED.” + J7uuu? 
TCur 29 57465: 
GO fo 230 376a6° 
£90 TFCARRAYVINCI2) NEO. ANT. ADEAY( NET 2) NE .0.9GG TC 293 376472 
Cc ** ERROR=-ONE OF INDEXES NCXLeNCT2 FS INCORRECT ** 5748? 
: 374632 
PPINT ©,"ERQOR ON RETRELVING CL NAMES ne? 4 +1? 
I Our 29 176522 
200 RETURN C74$2° 
ENO 27653¢ 
a eee : 

Ne 

M195 a 


at eet ea ee ee ieee el Se aw ee — 


¥ iw: 
= ee, EF Bs 


LS to 


SS ____ 076550 
}7486¢ 

CGGGEGEG6GGE6666G56 SEGCGEEEGGEGCEEcacGGGEGGGGsGcGGGacGGGEGcEGsGcGcGcGccGa 7457: 
Cc 376586 
H Fr THE F WING. ARRAYS FPCH NTSTOAY FILE 8ECOF 376590 

c 4.0S$ (KILLER/VICTIM ARRAYS? BEGIN (ANITIAL WON ARRAY) 074666 
¢ ELMT (ENCING WRN ARRAYDS SH(TS (AMMO EXP ARRAY) ___ 376625 
C OTHER SUBROUTINES CALLES aret 1746623 
C GITNMS (GETS “CL NAMES™ RECCRODS COMMIT (FINOS COYMIT“EC UNITS) 374630 
C Sumf OT (GENERATES NEEDED TOTALS) 374662 
376465C 

MTT TLIT LU LLL LOLULLI OLE LOLI TL LELLULI LI LE ELLER LLL PLU EERO BRAD 
Tea BEET PET OPS Td CTYPE LTTE TT KGS aTAT CAP TESTO CITRIC serned: ATLE7C 

COMMON T4.l0, FP eTENGAG, TTESON, IVES eI MGUNT »AINES .CFOR, FS HPS, Fas, 9746A8C 


—___1_ ATE MEsLELRST » TOUR, ROSE FASS EMAXKVy 0S 
2 SFC2),fSSF(2) PACK (2), 274700 


3 EL4 T6380 62), ALOSS (66 66 } o SHOTS (555 20 CK ILL (S352? »pSHCTSVI55, 2) 374722 


COMMON/O ATA/F PS (90.29 CREWS (53,28, APOSCLZ5 CPCS (ED, LTHELN(23423, 374725 
1 PSN (65202) PLOILS) KEV OL 72) 974673) 
COMOON/ONE/SLFELT (35) o APR AY (90) » MYOUF (L026) 0D (8% 92) pACT pASCENS AS=EC IPU7TKS 
COMION/TMREE/IHIST (35), A8H090) , IVOUF 11024) ee eae: 7875) 
Gowen cou Iel7 LGr tent OUts KIND (2) 5 °OTAL 635202) pSEGINIBE eg 2) NOL 076766 
* oN 0S (65,13 aTSus 2), TYPE (5) ARTS (iJ 010) NIRIS O7u77C 
TCTs RPY?PRY 
A Se ROE ee Ee LT OT Sad, Oe A _S7e?d 
TFCIOUT.LE. 2. OR-LOUT.GE.69GO TO 660 170408 

GO TO £100, 280,310, 460, 469) »r0Ur Re cee W7eAtI - 
Cc I74a2% 
CG ses gESIN FI APMAYS FCR SINGLE SECTORS %4° 374a 30 
Cc 1744365 
C *¢ FOLLOWING SILLS “BEGIN" ANC “EL MT™ GREAYS ned 3 P6ASE 
94 67446: 
200 CALL OPENM(THIST,3LT<C, 1.2) eee _174a7? 
AM(L)S°“BLUE START@ ~ - PGS 
£20 @H(2)D2ACT 37689 
AW(3) 24S ECT 37490: 
AM(b 299999, a s764t: 
CALL GET (LHIST, AW AH IL) 60,30) &7492° 
LF CAHCG) NE.99999.9G0 TO 138 eee _ 176930 
PRINT 120,44(12) sASECT.AC C7 uQus 


420 Foowari~M *,A19,"% RECOPO ECR SECTOR @.F6.0e™ CL *,AtG,* SGT FIUNC Me I7495K 


t 7 Caccums™) 174296. 
GOTO 17¢ - ris < Le 

130 Jat 1749e¢ 
_IF (ACL) .EQ."SLUE ENO7. OR ANCL) EQ. “REC ENO“IGO TO 157 Pw 99S 
TF(RW(1) -60."RED STAR™) Ja2 37$3520 

AO tuo 65 37531: 
SEGINI Ts J) SSS IN(i,0) MC Sig) 37532¢ 
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GO TO 170 379049 
ee 7 s ~ e 
CoO 160 121,65 979066 
hd 8 o4 + 276377 
£160 CONT INUE 075066 
= raed UT: Died » A) |: a ce eM RNR 9 a Ae | 
TF (AM(L) .EQe“RED START DAH( LI SB"PED ENC” 075196 
(RMi 2) EQ.“ SLUE END) AN(2 Ie“ ED START” J7S226¢ 
TF (A461) -EQ-*SLUE START“ AH(L)S"BLUE ENC™ : G7$2235 
751 3° 
Cc 67514: 
: #* FOLLOWING FILLS “ALOSS™ ARRAY 17518¢ 
37516C 
dua ew ptGN cB RUAIGO TEN SSSG! Scnscunen cours -2 cettcete — iv ssc se BO 
AH(LIs"CT LOSSES” ~ 7S 286 

= be} 
AH(®) 299999. 375232 
_____ CALL SET CIMEST » Ay AH(t).0,29) GLI 
a a ah a TO 290 37522) 
ga ae eg i ee Oe 
POINT 190 AH(1) ,ACI 175 246¢ 
37525: 
1 * ¢ ACCUM) @) 37526. 
GO TG 2398 1752?: 
290 IFCAM(S) .NE.ASECTIGS TO 226 37528? 
KZA4(o) 376 235 
re 210 121,65 $7639¢ 
(K, Ids (K. Td oA ( To 16) 375 31° 
219 eae Tor 37532°* 
220 CALL GETNCTHESTsAMeAMC2DD 82 
MEIFETCH(CIMIST,20F°) 17534; 
Tein .E0.4009)960 70 238 375352 
IF (AH(4? NE. "CI LOSSES™.0R. &H(2) .NE.ACIIGO 7OQ 230 075 36¢ 
GO TO 200 875 27°: 
C $7538: 
: =* FOLLOWING FILLS “SOTS™ ARRAY ___—«37§ 32 
975462 
39 eet (RAM40.GT.99GG °O 270 FC SLE 
aAM{LI2°TT anng” 3765462° 
4(2 ds 37$432 
Aw(&) 299999. 375464 
_____ CALL GET ILHIST, Ameo AH(29.9220) 8 = = = CO KH 
ITF (AHIG) .NE.99999.1G0 TO 260 87546. 
_ _Tanegsi 17S 678 
PPINT 190,AH(1) ACT 875435 
GO TO 27 3 7849¢ 
260 ILF(AK(S) NE. ASECLTIGO 76 2€9 3765): 
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Jaan) __ 47591" 
Oo 280 £21.85 07652° 
SHOF 9(T. J)? 8S ohn (To 7$$3° ‘ 
~ 250 CONT INUE 37854¢ ; 
260 CALL GETNCIMIST» AH, AH (yD? 37555: O 
MalFETCH(IHIST, 2L¢03 97556° 
LF (4 .E9.1003960 TO 270 = ____ 975578 
IF CRMC) NES “CE AMMO™.OR.AH(2) NEeACLIGN °O 270 07$54° 
sa OU eG ag a) a i Se ee I 
270 IF ¢rour.ed.2960 TO 290 37561¢ 
at. of “(TMTST) R75AL- 
GO TO 650 97562: 
a a ih ne a eee TG 
C *35 GEGIN FILLING ARRAYS FOR FAR“ITAL Cl OUTPUT see 07660 
eee To. LOSTC ABQVE (TE... FOR SINGLE SECTOP) TO ACTUALLY  _—s_—sC.9 7556 SS 
VETRIEVE THE PECOPDS ANDO FILL THE ARRAYS °° N 75685 
37567° 
290 CALL OPENM(THIST, 3L I-05 iL? 975548¢ 
Oe 1) | ° eat 6) SE ON Sn ea ee wn RN Nee  <-. 
290 FEAD (73,*) ASECT ; C7S7O5 
__.__ . IEMA SECT -.EQ.92.16Q0 TO 399 3 38=— i 7GTLE 
AH({L)2“8LUE START” A7572° 
7573: 
300 CALL CLOSEMC(IMIST) 37S 76c 
pac ta A re OO a a sa ie ee OT DE 
07576" 
C see SeGIN FILLING ARRAYS FOP FULL CI 49% Made eteae ent Gee 
Cc 17578: 
» Cc o° FOLLOWING FILLS “SEGING ANG “ELMT™ ARRAYS 37579C¢ 
a Cc 764g: 
_ 320 CALL OPENMCIHIST,3LT—“OeteP) ssi eG BE 
} VAM(L)2“8LUE START@ 37542: 
| 320 AM(2088CT ee. 87EKTEC 
AKEE P2AH (4) 37544. 
AH (& ) 299999, "75a5° 
Cal. GET (IHIST, AH eAMCL) 50920) = ee 77586. 
. __ IF CAH(4) .NE.99999.9G60 FO 330 78 87? 
~~ PRINT £909 AM61) ACT 27E9a; 
sacs a nd i Ie ie OO 
330 J21 £75397 
TF (AH (1) “SLUE ENC™.OR .AH(1).E0 ."8 EQ ENDO"ISO TC 356 
LF (ACL) -EQ.*FEN START") S22 37892: 
LF (A038) E08 29GC TO 371 en. «478332 Cj 
CO 340 121,65 575945 
ties __ BEGIM(T, JISAEGINGT Je eam(fexg) LL 7 95} 
360 CONT INUE 17596; 
0 TO 370 17$97- 
350 TFCRMIt) .€9."*R2ED ENO) J22 37894: 
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ELM (IL JPBELMT CT, JP oAnM(T e190 ) I7600° 

370 CAaakh GETN(ITHIST, At, AM(2)) 376 126 
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TFs .€Q.1008960 TO 380 $7696° 

AKESP OR. AH (2) NEAACIIGO TO 3490 376 NSe 

60 TO 338 37606C 
KEEP £0. “FEO ENDOMIGO TQ 397 HEP 

IF (aKEc? EQ.” “REO START“ PAH(LIa°PEC ENC 976542 

F P EnNC*) AH(L)s* TART 17609¢ 

IF CA KEEP .EQ.“8LUE START“ IAH(LIS“BLUE ENC” c7610¢ 

ge 0.0 R 
37612° 

Ac. cieeop lala ueaaerbice vaeeenipWad 2 cet ee tse g782 3° 
Cc U7646 
99 A 2“C? ns 7 Cc 

Anu (2? )2€Ci $7616: 

= _ AWS) 899999... Fe UP" 
CALL GET(INIS™, AM pAHI1) 90-20) 97628: 
__LEChH(6) NE} 99999.960 °9 490 OL 
PRINT 19¢0,AH(1),ACT 176207 

600 Ka2An (6) a7622¢ 
__.__.__ 20 _ #2413 293,68 — ss RS 
ALOSS (K, TP SALOSS (Ke Id oan Io td) 376 26° 

_ 446 GONTINUE 7 whe eee Se SSS 
CAuL GETHETHEST. 8s Abt)? 376 26° 

M= a 7627° 

TF (" .€Q0.21081 GO = &20 1762487 

IF (Q HCL) -NEW"CE LOSSES" .OX AM (2 S.NEACTIIGO TO 621 76 298 

GO TO 49 87639° 

_ 420 AMCLIS"ES AMMQ™ ON 
S 97632: 
CG *@ FOLLOWING FILLS “SHOTS” ARRAY "76 23¢ 
C 37636 
_____ANM(2)84CT 178 888 
aH (4) 299999, 3178 36; 
CALL GETUIMEST, Ab, B62) 00e20) PE 
TF (8H 06) NEW 999992360 T9 430 37638". 

PAINT 190,411) ,aCl 176395 

69 TO 4§$96 1 76e3° 

__ 930 J8A (eo) ee ete ws 
00 bet 721,55 97662: 

—— SHOTS (Lp JISSHOTS (2 y JS) AW ETOAQ) 8. , 07663. 
GeO CONT INUE "Ph ba: 
N(TH , 37645- 
MslFETCHI(IHIST,2L FF) . 37866: 
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-_____TE¢,€0,19999GQ TO 669 8 PG SPE 
TF CO HCL) NEST AMMO” .OR.AN(2) NE-ACIIGO TO 4655 3766082 
ei a a i SOF? 

&6$0 CALL CLOSEMC(IWIST) J7650° 

76S1° 

Cc 97652° 
—C_ 89° REGIN FILLING ARRAYS FOS casT Tal GAPE O° FULL GONE QuTeurTs *** 97653: 
Cc 0 76S6¢ 
_-660 CALL CPENMITHISTs 3ir<Cottre? HSH} 
Cc 37656¢ 
*SPFOLLOWING Fi “BEGIN” ARRAY 3763572 

Cc 376542 
__._AMZS"BLUE START™ HEN 
Ine 176606 

____. __AGTs ARZAVINGT SZ) 7818 

470 AW(2)s4H1 176625 
AN(Z2)# $76§63% 
AW(e 1899999. 3 76Hby 

CAL, GET(IMIST,AH,AM(2) 50529) __ 976 $84 

TF (Rh HCG) .NE.99999.960 TO 549 575662 

: PRINT ©80eKINO( J) — he ie ee ae at ho 5 PHGPT 
~@60 FoewatT(* NO INITIAL WPN ON ARRAYS FCR *,Ab,”* FORCE.) 37668¢ 
60 TO §29 45766956 

4960 CALL GETN(IHIST AH, AM(2)) 176742 
—_____MaTFETCH(ZHIST»2LFM) PHILS 
IF ¢(4.EQ.1003)60 TO €29 17672° 

_ TERM 12) NE AML COR AH(2).NE.ACIIGC TO $20 ee, 378732 

~~ 660 CO $10 121,455 176762 
GINGT, JIZBEGIN(T. J) o8H( 50710) 17675S- 

540 CONT TINUE 37676¢ 
_ 66 TO 490 #45 $59 49-839 es 

~ $20 IFCHL-EN."RED STaART@160 *O S39 076786 
__Anis"RED STARTS IS 
Jj2z2 37680¢ 

£8 TO £70 376a13 

Cc 37892: 
— ** FOLLOWING FILLS “ALOSS™” ANO “SHOTS“ AFRAYS 876438 
C7RAGL 

S3OC Awis"CT LOSSES™ ___ 3764950 
S4aQ AM(y )2aHL 576436: 
A¥(% ) 399999. 37647° 

CAth GET (CIMIST, AM oAM(2) 20020)? 2.76446 

IF (RHC 6) NE.99999.9G60 TO 579 _ 978895 
PRINT 5506, AHt 37699¢ 

__$50 FCPMATINWN NO “sA20o" RECORCS ON FILE") sé 
GO fo 630 176 92; 

$60 CALL GETNIZTHEST, AP, ANCL)? 374927 
Me lPETCH (LHIST,2LF RP) 176 94° 
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3 75952 
TF(RHCL) .NECAHLIGO TO 6350 57696: 
C 
CO $80 NNeNCT1,NCI2 17694¢ 
7 rt 
$80 CONT INUE 377993 
a 8 eS 
$90 IF(AH1.E9.°CI AMNOWIGO TO 610 07732° 
K 2a (%) So a TG SE 
00 200 121,65 O77 Jue 
2 7 kOe. 779835 
600 CONTINUE 377768 
60 fr ge PP GPs 
610 Jea4tG) C7778C 
00 621 121.8 779 
SHOTS (I, J) @SHOTS (I,J) eAM( TOL? a7740C 
977245 
GO TO $60 i77 22° 
_ 630 IFIAH2.E0."CS AMNO"GS TO 660 { 
Anis“Cl AMMO” V7? ive : 
Nl ae OO se ee er EES 
640 CALL CLOSENCINIST) 07716: 3 
oe fH TINE F WEL MT ARRAY S77 37° | 
c 37748; 
TRE |<, ,) a ee I? 1 A 
é #¢ THIS SUBROUTINE FILLS Sy CATLOS, CATSUP ARRAYS 37726) 
a a Nn gee oe a ee Se ee 
650 CALL SUMUP 377 223 
664 PETURN i7723:° 
ENO ; 47? 262 
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977273 
caGcecgscesescccaaasascacsaccsscecccssascccacces 666366 aaprarniaa arcatadatea yh 
4 A SOUTINE WHICH SUMS THE WENS REMAINING IN ALL COMMITTED UNITS 377395 
Cc A™ THE ENC OF A SPECTFYED Cl. A “COMMYITTEC* UNIT TS ONE ARICH iS J7731C - 

CURENTLY BEING GAPEC OR WHICH HAS SEEN GAPEQ CUSING SOME CI. 377322 

§7733¢ 

2 UNCOMMITTED UNITS (TE. UNETTS IN SECTCR 53.) ARE NOT SNCLUCED. S77 34¢ 
= RATHER. CEMAINING “ONS OF UNCORAITTED UNITS ARE SUSTFACTED C77 266 
Cc FROM THE SEGIMNING STRENGTH AORAY (“3EGIA™) 377 %6C 
Cc 37737° 
alalsiatala bake g fs nbalatacetalalaMadala le fatalata tore Rada Ladeds coe lala tats bakit’ Ba Lat ol se Lali aLacledada Falke nds abe Ls Bile leat aa 
Cc £77 39C 
COMION Tae le LP sLENGAG, LTESON,IVIS, IMCUNT » MINES SCF9IR FSFPC, FOR, 17749¢ 
t ATI ME IFIRST, TRUN. HOPG oF wASS » TMAXKV, 877415 
F # SSF (2) ,PACK(2) 377420 
3 ELWTC80,2),aALOSS (66,66) »SHOTS (55,2) 5 CKILL (53,2) pSHOTSEV (55, 2) C7743¢ 
____ COMVON/D ATA/E PS (805 2) pCREWS (5342) 0 B&FOS(22) pSPOS(6) pITHEEYI22 9205 27740? 

L PSN (60202) sPLT(L5) gKEV C2 71) W774se - 
COMOON/ONE JLETTC35) , APPAY (99) MYBUF (2026) 00 (30.2) »ACT, ADCENE, ASSES? 2 77 663 
COMMCN/THREE/STHIST(35),44(90), SYAUF (L926) 977473 
HUT (2), NO ( TCTArt ),B8EGIN(6S,2) et 977680 
* NCI 2 CATLOS (6501342) eCAPSUM(L1,2) TY FECS) pdRTGC10 220) »NERIG 377698 
____ SF INC TZ. GT pe. ANAM NCT2.42.999G0 TO 290 377588 
POINT *,"ERROR|--NCI2 NOY SET 277$23 
eee MO nn ee ee eT 
100 CALL CPENM(ITHIST, SLI-6, tL) 3177539 
AC Ts ARRAVINCT 2) C77S6¢ 
AH(t )2acTt 177551 
£6) 399999, ea re es ee ee 
CALL GET CINIST, AN,A AM(1) 40,20) 377S$72? 
_ TF (i H(6) .NE.9%999.1G0 TO 230 EHS 
CPINT 119,4CI 277592 
140 FORMATI(" NO UNTT KECCROS ON FILE FOF CI *,419) 2776)9° 
60 FO 1706 977645 
_ 220 CALL GETNCINIST,» aH, AH(t)) r __ J ?7K22 
“MaLlF ETCH (THIST, 2LF9) §S77535 
IF (M.EQ21098)G0 TO 179 ene ee a 224-1 > 
TFtAH(1)-NE.-ACIIGO TO £79 u?76se 
JsAM (5) 1775634 
TEC red ToL OR. JeGT.2160 PO 129 377875 
a TF (ane) .£9.0.960 TO 159 eee kad-+ 
C C 77693 
Cc 9ee 68 “COMMITTEO™ UNIT <-A09 WPNS TO ELMT SPRAY °°" 0 AP 7PGS 
Cc we a a ae 
09 160 194,55 V77720 
ELT (CLeJISELMT IT, Jd OAMCT O20) 377732 


es ee ee le et 


ee 


é 


O 


UY 


. 
CES eel ey eee ve 


eet 
' ao nine: 


iia gs iis es 
. ie — oe 7 Hi 


ot be te Me ae YF 


. ae . ' =. is , ; . . . eee = pues “eo 
_ a) . ss sae ? a es ehh eed at igs ' . 
a a ET . — pe SE Pema —— - 


—ec cere 
© 4, 


rs: iY, 
60 TO 120 amyv7s: 


a ee ee re 
C Sos aN “UNCOMMITTEC™ UNIT T<-SUBTRAC® WPNS FROM JEGIN array *4 177779 
i =. ae ees eee 077745° 
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______ SBEGINGTs JPsBEGIN(LeJPoANC Tord) OTS 
169 CONTINUE 177 4a18 
ea UD a a 
179 CALL CLOSEM(INIST) 177330 
£60 RETURN I77 AGC 
eno? 0774980 
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C 377889 
CG666666 Ge 666666666 666666666666 6 6666666666666 60666665666657739. 
Cc 377909 
4 °osT WHICH F THE “TOTAL” ARSAY 9Y SUMMING "HE BEGIN 3779123 

C ELM, ANDO O ARRAYS. TOTAL IS USEC TC GENERATE THE 977925 
z TAT IST 17793 
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1 ATI ME, IFIRST «TRUM: ROPOsFFASS » IMAXKV, 377983 

____ 2 SFE 2) FSS (2) PACKC 2), 37799¢ 
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TOTAL (2s 4eZ)s TOTAL (2y see) CELMT (Zs JI*FES(Ie I) 8 BSE 
TOTAL (3, do LI BTOTAL C2, d_ 1) OCBEGINGTs Sd EL MTL, JI) “~ $7226: 
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2120 CONT INUE 
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CGGRGGGGGRGGCREEEREGEEERSSG RE GECSEEGEE GC GCGRSGEGESC ERE GGEGRGGSGEGGS 660) 7 s42¢ : 
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GC “CATLOS"s “CATSUM™, ANG “O™ ARRAYS AFE FILLED JF ROSE O 
oe oe a _____ 67 4u6E ! 
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Sg eg tn ia SN SE rere Na ee nde ne Sete ot lee Oe 4 
COMMON LA, LO, LPeLENGAGs LT ERAN, LVS cL MOUNT MINES s CFOReFSFPAy FIR, $7849% 
t ATI ME IFIRST oIRU hy NORD FASS, [PAXKYV 178500 
2 SFC2) of SSF (2) yPACK (2), q7asis 
___ 3 FLMT 680 ¢ 2) SLOSS (66566) » SHOTS ( 592 0p CKSLL(5302) pSHOTEV (S502 Pome Oa 
COM ONOAT A/F 2S (805 2) sCREWS (5302) pACOS (12) ecPOS (6) yLTMERM(2092)) J78S3° 
1 SN (69252) e PLT (LS) »KEY C4 72) 579542 
GOMION/ONE/LFIT (35) pAnRAY(99)  4YEUF (1624) 00 (9052), ACL ASCENE, ASECTI55> 
COMM ON/THREE/SIHIST (35), 44190) ,-TYSUF( 4 32 4G) 27856 
COMMON/OUTPT/CCIC2) eLOUT » KIND (2 )oTO TAL (20202) 0 STGINGHS y2) yNCaty  785?% 
© NCI 2 sC&TLOS (5551392) CATSUN (2452) o PY FE(S) oIRIG(29 923) NOSIS V7AG Ae 
CIMENSION MAP (66) 3748596 
CATR MAP 4954 79541529 2p 5439 596g EPs Fp Oh E549 LOM ite = CC BOE 
L 16" Ss 7? 1201 3/ 17861° 
C 978620 
00 120 Ja1.2 k J7863¢ 
80 £10 393.65 Fen... 7a6us 
6 £00 Kaz, & 


_ ss EFC SEG. 1, 

® AXILLEC FIN (CALOSS (K,I)/ FACK(L))/10. 
TF is E022) 

S AKT LLSCALOSS (pL D—IFIXCALOSS (Ko LIS FACK CLIP SPACK (LID 10, 
_AKILLSIFSXCAKILL GS) 
IF(AKILL .LE.02GO *O 290 

—_ OTe JISOIT esd AKT LE 
KTan AP (K} 
LF(KT LE. eOR OKT .GT.129G0 TO 139 
CATL OS (4 yKVyJ) @CATLOS (LeKTe J? PAKiGL 

_ £90 CONTINUE | 
£10 SOM INUE | 
426 CONTINUE 

RETURN 
END 
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C  cREATED 074877 


a a a ae ee NE 
Crd 8 04 ok Pe 4 PE Rk 04 0 Oe Ok Og eg 9 0 0 0 0g ae P24 Be Oe OO Oe Oe etd re MMMM MMMM 7a a gr 
a a I oe a UL 
COMION TAc IO, IP sLENGAGs ILTESON, IVIS, I MCUNT SMINES cCEP RG FS EPS FIM, 178926 
1 ATIME FIRST, LRUNy NORC pF MASS » [MAXKKV, 378926 
2 SFC20 oF SSFC2) pPACK(2), 1748935 
___ 3 ELNT(80 02) pALOSS (665 66) pSHOTS (555 2) « CKILL (5352) »pSHOTEV (S50 2) 074962 
COMPON/D ATA/E PS (83 42) CQEMS (53,2) 0 AFOS(L2) eC PIS (GS) oLTMESM(2)02)5 1789952 
___ 4 PSN (622022) sPLII35) KEVELILD FI GHE 
COMMON/ONE /LFIT (35) pAKRAV (90) pMYSUF (2026) 49 (80.2), ACT ASCENE, ASECTO7897* 
MN ON/T.H fe 75), A4(99) TYBUF(2 92 C) 374980 
COMMON/OUTPT/COLI( 2)» LOU Ts KINO (2) o TO TALC 30252) pSEGING6552) wNCiLy 978999: 
_____* NCJ 2sCATLOS (65 63362) sCATSUN( L152) eFYFEIS) »3F 16619 030) sNSRTS_ _27900° 
LF(TOUT.LE.0.OR-LOUT.GE .61GO 73 250 27302; 
_____ BO TO (1609230 51600190, 220) tur INV 
100 WRITE (6,110) 1739237 
F onge 79042 
WRTTE(6,120) ACI,AS ECT 379650 
120 FOQONATC’°OSINGLE SECTGR CUTPLT #68 Cre “,A1C,* $ SECTOR] *,F6.9) 97904: 
60 TO 250 ~ 979079 
4330 WRITE(6, 1608 IG 
160 FCRMAT(C"L™) 9792593 
WRITE ( A 3791396 
150 FORWAT(“OPARTTAL CI SUTOUT FOR CI- “,A1C) 179113 
6070 280 nen __._. 079222 
160 WRITE (6.170) 379120 
_479 FORMATOM37) aL 
WRITE (6,160) ACT 179125: 
180 FO@mMATI“OFULL CI CuTPUT FCR Cl- *,A1LS) 179165 
GO TO 256 ana ~—s«dSP QAP 
_ £90 WRITE(6,200) soa AP SeE2 
~ 200 FORMAT (™L) ce ae gs 6 ee ees ee ee ee ee - $7919: 
____ WREPE (6-220) CCL ee hy ee eee en ann 579295 
220 FORMAT (°CPAQTTAL GAME OLTCUT FROM Cle “,A10,* THECUGH Cl= “,Alcd c7922° 
Go To 250 37922: 
220 WRITE (6-230) 37923¢ 
238 FORMATOMR D782: 
WEITE (6.260) CCI 3$7926¢ 
260 FORMAT“ OQFULL GAME OUTPt Cle *sA22o% THOGUGH Cr= “,atd) = 37926: 
250 PETURN 17927% 
END 279287 
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SUGRQUTZTNE REPORT 879 9E 
Cc 079322 
f$.GG6G66 GG G6 6665 GG G66 G6 GGGGGGG6G665 G 66666656666 666656566563 7932¢ 
C 379335 
c A _ ROUTINE WHICH CALLS THE SUBROUTINES tHaT CREATE THE 979 36: 
C TABLES ETC. WHICH MAKE UP AN CUTPUT FILE. 979359 
a a a ot Oe 
C PP PHPE 4 Pt P8 ted PA Meng ted ree ee 4 G8 HO 8 0 1G HG HG 1g OHO Oat 0 4 0G 0 OO He ge OH 86 0 He 54 Sg Oe 84 dB 0g On Bf Om Be OP ed eA) 7G SPS 
sa cS ee 379380 
COMMON TAe Io IP eTENGAGe TTER SNe IVES e IMCUNT oe MENESoCPOR GF SFA, kPa, 079392 
2 ATI ME ,LEIRST » TRU, NOPC FMA SS -IMAXKV, 679696 
2 SFC 2) .FSSF (2) ,PACK(2), 17941. 
3_ELNT (405 2) 4 ALOSS (€6 556} o SHOTS (555 2) sCKILL (5302) sSHO"SV(55 p2) ___ 87962 
COMM CN/OATA/EPS (80 92) SCREWS (5392) APOS (12) s OPOSER) » THER“ (20,2 67943¢ 
___ 4 PSN (692 92) PLT 645) KEV (472) 0 7948E 
AOMVON/ONE/LE LT (35) pARRAY (90) g MVEUF(LC24) OC 30 2) p ACI e ASCENE A SECTIIQLS° 
COMMON/THREE/THIST (35), An (99) »>TYSUF (1926) § 79462 
COMMON /OUTPT/CCT (2). TCUT KING (2), TO TALCS 4202) »FEGIN(ES, 23 NCIL, 379467° 
© NCI 2,CATLOS (65591352) oC ETSUM( 1252) pTYPE(S) eARTG(19,10) »NSZIG Q794A0 
CoceoeWRITE SEGINNING FORCE STRUCTURE 979469 
Le LS | | | ee a ce a a ee C4: + 
WRITE (6,200) 979817 
100 FORMAT (1X. “FORCE STRUCTURE) | 37952° 
00 200 £21,65 G79S57¢ 
—____ IF (JEG INET 01) oEQs Co o AND -BEGIN(£52).EGe02IGO “9 250 == OG OE 
WRIT € 16515001 -SEGIN (IT .1),PEGINIT,2) 317955° 
A156 FORMATION E20e2F9.0) 89S HE 
200 CON? TINUE 179572 
A FM 27954: 
CALL REC VRY 379590 
—— GAL MICAT 9798 87 
GALL BULLET 979612 
desc AU CRs tote eg 
Cau KILVIC 2796 3° 
Rat TO$ii? 37366; 
SEIT RUN. NEL. AND. IPUN NE. 72CALL CPYLEP 97965° 
LF tzpour.G?. 3IFALL TRACE id 79662 
CALL CIReér 1796 7° 
9g Ss US hh a es ne fe nt th Oe 
ENO 179Ra0¢ 
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rps 

3 § 
Cc TO TWE OUTPUT FILE. 38062: 
eS me ea a eS EE Se ee eee ee 39639 
TT bh bhhaldwuhliluidialalslesaehdlulhis a hhhilddsiacLbbhiohiiia hh hbohlLbDnp Meio 
i GAG SSE 
COmeOn 14,1f0, TP TENGAGs ITERRN,» TVIS eI MOUNT MINES, CEO, FSSSS, FAQ, 398 J662 
ATI ME oS FIRST Roh F™A MAY KY 34967) 
2 SFC2) .FSSF(2) ,Pack(2t, J4AC685 
3 ELNT (802) 2ALOSS (66056) » SHOTS(55. 2 2 CK ILL(S3, 2), SHOTSV(55,2) 23C69C 
COMMON/OA TALE RS (99,2) ePREWS (6 162) -AFGS(12) CFOS (ED TTHETMI29, 2), J8O9790C 
—__1 PEN (6 e2e2PePL TP (25) KEV (272) 28=Es OF LE 
COMMON/ONE/ LF 27 (350s ARRAY (90) » VYQUE( 1526) 90187 02) oACZ eASCENE s ASECT 1897 2¢ 
ye THe 4 YSuF &) 299736 
SOMIONAUUTRT7EGECITTONTErROC) oT OTALC 34252), 3EGIN(65, 22, NCabs 349G 745 
__ © NCTZcFATLOS (6501302) eCATSUM( 202) eo TYPE(S e9F Gti ep ddeNBESS SC 75S 
OIMENSION RECOV (2625395 THER 12,253) o0FOS( 29203) pFHEC(9) CAu76S 
_____ DATA COMPECOVC Sp de KI) 0900255 oBh 2) o MEE 51/0922 1699 0 395 560 095 ae ble _ 3929772 
aad of? 5 256 4292 2ST Age 98078; 
? 4 2 2 2 2 & ‘ ar7Qr 
S 02h pe DeeSleo olbee22n2* .0/ 986ce3. 
___ __OBTR CC CFOS CS 2 de) pLSL 02 Vo JBL 02) oKBL 2 SIS oS 30 0 Fe o2hn 28 e oe 2G0eSIe 990912 
SB 019 9 e825 oS32e oO9e cD 0 eo S8Ca27 
_2£90 FORMAT(N ",SO(747)." LOSS &£ DAMAGE OFSTHLIUTZON “,S5O("* "971 = =— IB TBSE 
110 r Gow ay (~ on 20K s8L ue FORCE™ 455%, “FEC F FOCeCE™) S8C8ac 
HSL K ee “TOTAL 28K, M=EPATRASL EM) BACHSO 
1390 SORMATIT T= ONT SGP" Ss “OARAGEO™, 20 °NUNGEP™, OX, “NUMEES™, MK, 330456: 
© MTqEATER 0 2X, “COSCOM*, 1X oe“ OL Vs IK» WHEN EX, “SAMAGEL 2X _ *NUMIET™, JAN? = 
“8 eX, “NUMBER” 211% ¢°WIT REN) 05054; 


140 FORMAT“ eo, SX, “TYPE SR LCST LOST CAMAGED REPAIR REPATE™, 536890 


@ RFSATR™.7PY,"TYPE OR LOST LOST CAMAGED 2 CAYS $$ JAYS™,03599° 


o 7 3) 9avS") 28692. 
CG v8CF2° 
___ ___ GAUL OPENMS (3 ,KEY,193 0) ____aseese 
CALL READNSI3 ,OREC, 9, 35) ~ 98096; 
wa OUI OU COINS OS Yn ee OG 
C 36096: 
CAL. NEWPAG 280972 
WAIT E (6,100) 38498° 
sess ETE CG 60 ni ISS 
WRITE (6, 260) 2822aC 
occas, REY EG OU an i re tee WOR 
WRITE (6, 110) -982172¢ 
a 3*493° 
WRIT E (6,260) PhP ot Te 
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WRITE (6,260) 16206: 
Ma np ts GT 

WATT E (6, 260) Qarsac 

WRIT E { uO? 28109°¢ 
WRITE (6, 260) : 382110C 
ee Se ee 

Cc 3#412° 
INX2 0 JALL3° 
ITheg 94L16- 

PPPs 2 932152 
TFtITA.EN. 1) LP Psy 24116¢ 
an a a a ee O*1170 
NR 2g 38118¢ 

_ 156 BTepensgGe = 992 
O*UELL20. 99120C 

§°E? 20. 38122; 

R°EP 20. §2122° 
___Jst ee | F<. 
TNUM ONS 042726C 
___EFUDNUM.GT.65160 TO 2190 2 252 
00 £490 IsIlNuM,65 34226¢ 

N§2 §81279 

TF (D (Yet? LE. -59GO TO 180 6$126C 

ga TE OO Das i ENE 
TFCT LE.18960 PO 1790 feqsqe 
____2F (7 .G6E.59960 79 279 8 ee E 
TF IT -GE- 16 AND TeLEW 20) INXBL 98132°¢ 

F oGE. eANOele €. PINXS 34 335 

IF (Ir eGEe JLANOD TLE SEP INXS 091 36° 
__.___ 90 $66 Ks2.t3 =F 8 SE 
IvHs 2 341 369 
—.__ RF (K EQ 80EPMee 8 TE 
BREP SIRES OLFI KU ( FECOVI IOP ITH, TKI *CATLOS (U2, Kke Jd) 0.5) 392.740 

160 CONTINUE 94139: 
179 BNREP2dt KILL -ARES 391405 
OTHE ASTFIX(BREPOTHER(TPP, ITH,INYD +.) 0 AEE 
BCOSSIFIX (SRE PPFOS (TOL, LTH, INN) 050 3$142° 
BCIVsdTKILL ~ ( SNREF oBT PEA oC CS) on a - JAL43C 

GO FO 190 Ree 2 ae Veet —~ ~~ JALeer 

130 CONF INUE 324 45¢ 
190 INUMSNRetL 391246: 
TF CLNUM. GT .65 .ANO.NS.GE 65960 70 231 ee LS oe 
___ 00 220 TaInum,65 82 8 
NRaf g*159° 

TF 2 (2.2) 4 E€2-5160 TO 220 191512: 
VIKTICLs4 (I, 2) 24152: 
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ee SEE ee bak OD SES a Be Se ere 


sOtt at53° 
TFIT .L€.25)RREORG 182560 

E 1) Ce ae ee 
aR te chee teeur et eees 72760 To sone 082%56¢ 
Efe 8157: 
eRe Ze TF TX (RREP PRE CUA). — 34154¢ 
(8 9° 
ROEDs ESTETECRAEPURDED TS) © 5) 092622 
SOR EP 2oLTEI XI CATL CS (2.23702) .275* FRECii)e,S) = TT 
RREPSSRREESOLTFIXICATLCS (251342)% -2 7S*PRECI2)6.5) 381627 
BR RESTO» LA s & +5} = 
RREF SRRE PZ ORREPSSAREP 10 98156: 
RNRE PeaTKILL-KREP 2#456° 
a aN ee a 
216 CONF INYE 81682 
Ls a16a0¢ 
* WAT TE (6,240) NGoSTKILLs ANREP, IPES, ATHEA,2C0S,80IV Qaet7az 
___ __XF(RFKTEL AGT ofa) = 362722 
® WREPE (6,280) NReATKILL sp PAREP, 2RE2,AREP 2, 2°E PS, WEMD Varr2s 
WELT E(G. 260) "8173: 
GO 70 15¢ SaL7ac 
7 941752 
ZOE FIRNAT (67 BX L202 (IK FG e Cp WXoFGa de SNe FED, 2t 2K FHC) ) o4276c 
250_FIRMAT (“0% 70% o) (3% FH oI) 9 UK FH ody Xp FE Te 2020 F677) Gar?7e 
260 FIRMAT (CO 2%, GK e MT GIN “ZS? 031743 
_ STU FORMAT (Mom erm et 29CreMye 8 
PETUERN 682490¢ 
ENO 58141" 
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: Ss oe Rik ae EPS ; z 
Tne ae tan A Ca OS Sg pea Ie ET ne ae eee ae 


7 S M T 181437 
G8184° 


Cc 

ee ee een ee ene ae ene ee Te eee ean eee eee See ee Tage ‘ 

Cc A FOUTINE WHICH WRITES OUT THE “LOSSES SY SCURCE OF LOSS” QBLE7S 
TABLE TO THE OUTPUT FILE. 341359 O 

18189° 

Moll Luholuuldell luiLbisdeulad.iduLbbbla.GGoLohlbbibiblale bao hbobnbl') sab 

981912 

COMMON TA, 1D, [Pe TENGAG, LTERRN LT VIS » IMCUNT, MINES CEPR, FS FER» FRx, 98192° 

ATT ME pL FIST pTRUA, NORD F PASS, I VAXKY 33193¢ 

2 SFCZ) FF SSF 2) PACKI2), 381949 

__.__ 3 ELYP 190 92) sp AL OSS (66 » E6 3 o SHOTS (550 2)» CKILL (5352) oSHOTEVI55,2)  38295- 

COMEQN/O AT A/F PS (60,2) CREWS (63,2) eAFOS112),9P9S (6), 27REIM(29,2)3, 341962 

____ 2 PSN 1602 p2doPLT(25) KEV IL72) 8 

COMION/ONE/L FEIT (35), ARRAY (90) oMYIUF (L024) 0190 02) ACI ASCENE, ASEC7GG19 4° 

MRONS TW YHIST (35), AH (90) LYSE (1026) 08199- 

COMEON/GUTOET/COCL (2) LOUTS KINO CZ) PO TALC 202,20, SEGINIG6 5 e2),NCI1¢ 282796 

NEL 2 pSCATLOS (655 2392) CATSUN(11, 2)» TYFE (5) pA TG 615 510) pNaIETG 242525 

OLMENSTON LFORC3) »XCAT(1L6) ep MAP (6602 )s ICAT (26) 382321 

—____ DATA _MAP/25 5340.57 9522224 2p SOE » $96 0 69% 059 eGo S* Ge SOL Ge HOdt, =—=—-«s-- 982932 

1 $926512°S9 0 41253915013, 382242 

2 Lhe 370s 7259402920 3939896 16 9% 15229 695 °F SLI tthe gs2ise 

2 594 6212°9.7912,137 98206¢ 

QATA [CAT/“PNF CBT@ "LE ATGM*. "GS ATGP* “INE /GCAV “ME ATEN, UA2G?* 

1 “TANK™,»“NINES@™,°IN FIPE”.“aG GUN,*Sh BSL”, ~ 082382 

2 ER MSu Me PATK HELM, MTACAIR@ e“T FUCK SM e"SC™ MEL Me AG 

3 ““QaTaR*/ 192192 

MTR LFOCSRIL Hey Shee Me MX FILS C4231: 

100 FORMAT(*® “,SiXehue”® LOSSES SY SCUPCE CF LOSS”) 042125 

£20 FORMAT (°0% 5 “VICTIM 92 3X 5 “GND s 3X op SINE SCAU OX MMECH Me 2UXe "INO, 392235 

1 Lek »*SHORAD™,S5K,"LOAE*) oe es ote ee 3226: 

_ 115 FORMAT (2%. “TYPE™) 9922453 

117 FORMAT(2x,"CAT™) 382160 

118 FORMAT (“0% , 9K ,°INE COT, 2X, °LT ATSM%, UX eM BTGM™, IX, “VEHICLE”, J82i7< 

L UX— MATE SX oP TANK SK, PINES, UK, FSFE, GX, AL CUNM SK, NEL, 032233 

_____ 2 Ke “MSL Se 3K 9 ATK WEL, TX e“TACATON, OX ,“TOTAL™) OC BA 

119 FORMAT (” oe, Sena WGCNS ntemecdae S8CLU suetnne 985% aaue 9 Xe 29226° 

_..__ § ep ecan wn 9 Ok epee th 0 amen 99%) eaeee gk, Bi a e4Xy ee ner siee anaes ____ WA 2 21 ] 

Ons ies VOR ne VONS baa CONE samabda 8ONt acudeen CONS 34222 

a =) sa223c 

120 FoewAT INO", 2x,I2) “9224: 

_ 125 _ FORMAT ("9% A7) Ue ee. EOE 

. IF(LOUT.LE.0.OR.IT0UT.GE.61GO TO 160 © 38226¢ 

! — 004850 Jete2 822 

| . CALL NEWPAG q9228: 

WOTTE (6, L0G) KIND CJ) 592297 

WIITE (G6, 110) 39270: 
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a ee a 


WPIT E16, 118) 39232¢ 
be 
00 tJ 121,65 ‘ 182 34- 
44 - 
wOlTeE(6,1209T 042 36¢ 
T_T 4: Hl ge 
LF (CATLOS (Ze Ke td LEW 1260 TO 130 282 3a¢ 
___ IFO (238 NUNS C(Ko0089) USF 
hl aa a a 3) 982605 
QR261, 
rece (Na wUNETLAGD J8262° 
_____WRITE(6,TFORICIT, J) FAST 
~ 260 CONT INUE 2282642 
a EL NOR Gn a ESS 
WRITE (6, 100)KINO( Ud 38266: 
‘dl 8267° 
WRITE (6, 117) J38268° 
ta gE © GL ee ne gneer e la ae  e Sac eeO eC er ee Ane ERE MEeES Kd, 1 1a 
WRIT E (6, 119) 39425 13¢ 
spon OU SO 7 MRO hh Ge Si a es ee ESL 
YCAT 20 ‘ 398262 

ad 2 Ss 
RCAT (Kd 80 FAZ56° 
O22 124.65 RSS S 
LECHAP CT 9 SD cE De KKIKCAT(KD EXCAT (KE OCATLOS (CL eke J) 382567 
_ 161 CONEITNUE er ee ene a ns et ne ee Ce 
YCAT SYCAT oxXCaT(K) 89258- 
445 CONTINUE 182$9¢ 
TFECYCAT LE oe lL IGO TO 147 94260) 
____WRETE CG, L250 TCATCKKD AGE 
00 £46 K21.13 99262¢ 
TECXCATI(K) LEoot) €O TO 246 i SHA HTT 
TFOR (2) SNUMG ( (Kot) 49) "8264; 
WRITE (6, IFOR) XCaT (K) 332655 
146 CONT INVE £42664 
____TFORC2DSNUMBC198) 8 G7? 
WRITE(6,IFOR) YCAT 392681 
267 CONT TMUG i nc i IOS 
150 CONT INUE 28270C 
160 RETURN W272: 
ENO ta2722 
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____ SWEROUTINE SULLEF 8 T82765 


c 042760 
C6 66666666 665666 666 666666666666666665666666 6666666666666566666656666666602766 
C 3182771 
A ROUT WHICH WRITES OUT THE TA F ARPUNITION EXPENUITURES ne2?eac 
08279C¢ 

Connon re HH HHI RANMA BER IE 
992025 

COMION TA, IP, TP eTENGAGoITERRN» LVI So LMCUNT AINES CFPFFSFPR FPR, 242825 

4 ATI ME IFIRST p TRUKy NORD FASS, TPAXKV, ~~ 4962933 

SF 2) FE SSF (2) PACK (2) 382840 

3 ELWT (80-2) ALOSS (66.66) » SHOTS (55, 2 Ip CKILLIS 322) »SHOTEVISS, 2) S82A56 
COMMONJOATA/SFE PS (80.2) CREWS (S302) pAPOS(L2) op PPOS (GD o LTMERM(2902), 382960 

2 PSN (60202) ,PL? (215) sKEY (171) 032473 
COMMON/ONE/LEIT (3S) pAFRQAY (99) YY SUF IE 024) 018052) p ACT ASCENE pASEST I B2980 
COMVON/THREE/ THIST (35), 44190) ,TYSUF (1024) £8289) 
COMPON/OUTPT/ECII2) -LOUT + KINC (2) TOTALS 35202) oe S9EGIN(6552) »NCIL, §8299° 

: * NCI 2 CATLOS (6951342) eCCATSUM(L1.2) a TY FE (63 -BR °G6625 6193 NSRIG aaa: 
932922 

IF (TOUT.LE.g.OR-LOUT.GE.61GO TO 150 ~ §82939 

CALL NEWPAG ___.. 392965 

Cc G42955 
WRITE ( ) 1382962 

100 FOenaT(@ AMMUNITION EXFENCETLSE™? 9382975 
WR en Ni eee ee ee ee 

118 FaRMaTi(~ BLUE REC) 98299°¢ 
it WARES CR g AOU 2 ee ee 
120 FORWATI" TYPE -NLMQER TYPE NUM GE?) 183926 

& 2 a3329 

WOT E (62130) TeSHQOTS(CIeL) el eSHOTS (I +2) 993935 

~136 FORMAT IN “olSeFSeSetGXeI3,F9.9) TG 
1440 CONTINUE 383¢5¢ 

C : —_— 083965 
150 RETURN 94307: 
ENO O83C85 
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0666666666 6665 666666666666666 666666 66666666 66665666656 663666666666566366 133126 
J8313¢ 

4 ° ~ parercee A3LGS 

Cc SIx TVSES OF ASSESSMENTS CONE IN THE JIFFY GAME. 943159 
2160 

TT RD illu obo bauapeububbuldadbilacidluleulslulshlaitelleb Lol ll Re eae 
i a ee OE OG 

COM*ON mh SL cadet Aa ae Set il oN as ata gale dla 393295 
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